♦ 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURLAU  Of  STANDARDS- 1%3-A 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


DTtC 

ELECTE 
JUN  2  1982 


ADAPTATION  OF  MAGNETIC  BUBBLE  MEMORY 
IN  A  STANDARD  MICROCOMPUTER  ENVIRONMENT 


Michael  S.  Hicklin 


Jeffrey  A.  Neufeld 


December  1981 


Thesis  Advisor: 


R,  R.  Stilwell 


Approved  for  public  release;  distribution  unlimited 


82  04  0l  010 


UNCLASSIFIED _ 

tccumrv  cuAtM^iCAtion  or  thi>  rAOO  ornm  Of  tmtmfwrn 


RerORT  DOCUAENTATIOH  PACE 

RKAO  mSTRUrTTONS 
•BPORB  COMPL.E'RNCi  FORM 

■■■■■■■■■SniidUEJsIkl; 

r  MCCiMitMT'f  CATALOO  MUMSCM 

Y 

4.  TircC  JMAf/fU) 

Adaptation  of  Magnetic  Bubble  Memory  in 
a  Standard  Microcomputer  Environment 

*•  Tvrc  or  MCMOMT  A  MCMlOO  COVCMCO 

Master's  Thesis ; 
December  1981 

f.  rceroMMiMO  omo.  Mcrour  numscm 

7.  AuTMOII<'«> 

Michael  S.  Hicklin 

Jeffrey  A.  Neufeld 

1.  ^bMTAAdf  ob  GMaW^  NUMS€i?7/  '  ■  "  ■ 

f-  rtA^ONMINO  OOOAMlZATtOM  NAMC  AMO  AOOOtif 

Naval  Postgraduate  School 

Monterey,  California  93940 

ti.  coMTuocLiMO  orriet  mams  and  adoocss 

Naval  Postgraduate  School 

Monterey,  California  93940  i 

<2.  MCFONT  OATt 

December  1981 

It.  mumbkn  of  faoks 

L95 

VI.  lioMlf^AlM^  AOIMCY  MAMK  A  AOOOCSSfll  0i9mtmmt  hmm  Cmmtimittm$  OWmmf 

Naval  Postgraduate  School 

Monterey ,  California  93940 

If.  fCCUMlTY  CLASf.  (mt  thim 

Unclassified 

t«.  OtSTNIBUTlON  STATCMCNr  (mt  tMt  «•*««> 

Approved  for  public  release;  distribution  unlimited 

17.  OlSTfllSUTION  STATtMCMT  (mt  tA«  atelrMl  Im  Btmmt  90*  It  mttrnMmi  hmm  Mm^mmt} 

It.  su^^lcmcmtamy  Morts 


If.  Hi y  WOllOt  rC«nifiMf«  mm  fmmm^mm  ti  mmmmmmmrr  fr  nmm^m) 

Magnetic  bubble  memory ,  microcomputer  operating  system, 
CP/M-86,  secondary  storage  media 


ao.  aOSTOACT  rCMiliiiiA  mm  fmmmrrnm  II  mmmmmmmn  M  lOMilir  ff  MmA  MfliAMi 
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IfiSTBlCl 

aagsetic  bobble  aeeory  is  a  aev  digital  storage 
technology  that  offers  aacy  significant  advantages  over 
currently  existing  secondary  storage  aedia.  Babble 
aeaories,  with  high  densities  and  relatively  fast  access 
tines,  are  non~volatile  seaiconductor  devices  that  provide  a 
high  degree  of  reliability  in  harsh  environaents.  This 
technology  has  the  potential  for  a  vital  and  onigue  role  in 
both  the  civilian  and  ailitary  coaputing  environaents  due  to 
the  conbination  of  characteristics  exhibited  by  aagnetic 
donain  devices. 

This  thesis  presents  an  iapleaentation  of  a  aagnetic 
buttle  device  utilizing  a  conventional  operating  systea. 
Digital  Besearch's  CP/ll-86,  and  a  standard  coaaercial  16-bit 
aicrccoaputer,  the  Intel  iSBC  86/1 2A.  A  fully  operational 
systea  capable  of  testing,  evaluating  and  utilizing  a 
aagnetic  bubble  device  in  a  standard  user  envircnaent  is 
presented. 
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I.  IBIHODDCTIOH 

nagnetic  bubble  eeBory  is  a  new  digital  storage 
technology  that  offers  aany  significant  advantages  over 
currently  existing  secondary  storage  aediues.  Bubble 
neiories^  with  high  densities  and  relatively  fast  access 
tises,  are  non-volatile  seaiconductor  devices  that  provide  a 
high  degree  of  reliability  in  harsh  environaents.  This 
technology  has  the  potential  for  a  vital  and  unigue  role  in 
both  the  civilian  and  ailitary  coaputing  environaents  due  to 
the  coabination  of  characteristics  exhibited  by  aagnetic 
dcaain  devices. 

This  thesis  presents  an  iapleaentation  of  a  aagnetic 

1 

bubble  device  (llBB-80)  utilizing  a  conventional  operating  ] 

systea  (CP/Il-86)  and  a  coaaercial  16-bit  aicroprocessor 
(Intel  8086)  .  A  fully  operational  systea  capable  of 

testing,  evaluating,  and  utilizing  a  aagnetic  bubble  device  | 

in  a  standard  user  environsent  is  presented. 

There  are  four  major  phases  into  which  this  thesis  is 

j 

organized.  The  first  phase  will  present  an  overview  of  | 

bubble  domain  devices  tc  provide  an  understanding  and 
evaluation  of  their  potential  applications  as  aass  storage 
lediuBS.  Chapter  II  will  describe  the  theory  of  aagnetic 
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babble  devices  and  the  current  state  of  aagnetlc  doeain 
technology.  Chapter  III  will  present  an  evaluation  of 
bubble  aenory  technology  and  utilization  along  with  a 
justification  for  the  applicability  of  aagnetlc  bubble 
devices. 

The  second  phase  will  address  the  low-level  interface 
requirements  for  the  MBB-ao  Bubbl-Board  (produced  by  PC/M 
Inc.)  when  interfacing  with  either  the  Intel  8080  or  Intel 
8086  nicroprocessor .  The  purpose  of  this  phase  will  be  to: 
(1)  verify  the  operational  characteristics  of  the  MBB-80; 
and,  (2)  design  and  iapleaent  the  Icw-level  systeas  software 
necessary  to  interface  the  operating  system's  I/O  structure 
with  the  magnetic  bubble  aenory  ccntrcller. 

The  third  phase  will  address  the  issues  necessary  to 
implement  the  interface  of  the  bubble  memory  system  with  the 
operating  system's  primitive  secondary  storage  access 
routines.  The  tasks  necessary  in  this  phase  are  to:  (1) 
design  a  memory  organization  and  management  scheme  for  the 
magnetic  bubble  memory;  and,  (2)  design  the  interface  such 
that  the  magnetic  babble  memory  appears  as  a  "standard"  mass 
storage  device  (disk)  to  the  host  operating  system. 

The  fourth  phase  is  the  actual  interface  of  the  MBB-SO 
Bubbl-Boards  into  the  Cf/H-86  operating  system.  The 


interfaces  and  designs  developed  in  the  second  and  third 
phases  are  applied  in  this  phase.  &  generalized, 
tatle-driven,  "basic  input/output  systes"  (BIOS)  is 
developed  which  will  allow  the  utilization  of  HBB'BO 
Butfcl-Boards  (as  "disks")  by  the  ct/H-86  operating  systee 
along  with  conventional  floppy  and  hard  disks. 
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II.  BACKGBQOIID  OF  BOBBLE  BEMOBIES 
A.  BA6HETIC  BOBBLE  OOBAIE5 

The  entity  known  as  the  "nagnetic  bubble"  has  been  auch 
talked  about  in  the  context  of  solid  state  aeaory 
technologies.  This  section  will  present  a  description  of 
what  a  magnetic  bubble  domain  is  and  will  describe  scae  of 
its  properties.  No  attempt  will  be  aade  to  present  a 
coaprehensive  explanation  of  magnetic  substances  or 
magnetism,  but  rather  the  basic  theories  of  aagnetic  domains 
will  be  put  forth. 

Certain  elements  and  their  alloys  (Fe,  Co,  Hi,  6d  and 
Dy)  along  with  other  substances  exhibit  the  well-known 
property  of  magnetism  or,  more  properly,  ferromagnetism 
[Hef.  1;  p.  619].  This  property  permits  a  material's  atoms 
to  achieve  a  high  degree  of  alignment  despite  the  aroms* 
tendency  towards  randomization  due  to  thermal  motions. 
Adjacent  atoms  interact  and  ccuple  into  rigid  semi-parallel 
patterns.  These  patterns  are  known  as  ferromagnetic  domain 
structures  and  are  localized  within  a  specimen.  Materials 
can  be  cut  such  that  their  direction  of  magnetization  is 
along  a  single  axis  (viz.,  along  one  particular  direction) 
and  are  known  as  uniaxial  f errcmagnets. 
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Several  important  properties  cf  ferromagnetism  are 
exhibited  when  a  magnetic  substance  is  subjected  to  an 
applied  (external)  field.  First,  a  relative  increase  in  the 
external  field  of  0  to  0.01  will  cause  a  relative  increase 
in  the  substance's  magnetic  field  of  0  to  1000  [Bef.  2:  p. 
21.  This  factor  of  100,000  occurs  primarily  in  a  long,  thin 
satple  or  in  a  closed  ring  of  some  form.  Secondly,  if  a 
single,  thin,  crystal  sheet  (film)  of  certain  uniaxial 
ferromagnetic  materials  is  cut  perpendicular  to  the  axis  of 
natural  magnetization  (see  Figure  2.1(a)),  the  domain 
structure  is  found  to  be  one  of  wavy,  or  serpentine,  strips 
having  alternating  directions  of  magnetization  which  are 
perpendicular  to  the  surface  of  the  sheet  [Bef.  3:  p.  66]. 

It  is  the  combination  of  these  two  properties  which 
supplies  an  environment  for  a  magnetic  bubble  domain.  A 
thin  crystal  film  as  described  above,  in  the  absence  of  an 
external  field,  will  have  a  volume  of  serpentine  strips 
magnetized  in  one  direction  which  equals  the  volume  of 
strips  magnetized  in  the  other  direction,  resulting  in  zero 
net  magnetization.  Upon  the  application  cf  an  external 
magnetic  field  perpendicular  to  the  film,  the  strip  domains 
magnetized  in  the  directicn  cf  the  field  will  increase  in 
volume  as  the  oppositely  magnetized  domains  shrink  in  volume 
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Larger  applied  field 


(c) 


Figure  2.1  (a)  Serpentine  Strips,  (b)  Magnetized  Strips 

(c)  Cylinders 


[Ref.  3:  p.  86].  This  phenoaenon  is  th«  rasolt  of  th« 
process  of  energy  ainiaizaticn  and  is  shcvn  in  Figure 
2.1(b).  As  the  external  field  increases  in  strength,  a 
field  value  will  be  reached  at  which  the  shrinking  doaains 
contract  intc  circular  cylinders;  it  is  these  cylinders 
which  are  known  as  "magnetic  bubbles."  These  cylinders  are 
shewn  in  Figure  2.1(c).  A  further  increase  in  the  field 
will  ultiaately  result  in  the  total  collapse  of  the 
shrinking  doaains,  leaving  the  fila  saturated  (viz., 
magnetized  in  one  direction  only)  [Ref.  4:  pp.  3-4]. 

The  applied  field,  known  as  the  bias  field,  is  essential 

for  the  stability  of  the  bubbles  within  a  substance.  The 

bias  is  typically  on  the  erder  of  100-200  Oersteds  (a  unit 

used  to  measure  magnetic  strength) ,  which  can  be  easily 

previded  by  saall,  permanent  magnets.  This  allows  stable 

bubble  existence  independent  of  any  power  source,  which  is 

the  foundation  for  non-vclatile  storage  media.  The  bubble 

itself  is  maintained  by  a  combination  of  three  forces.  The 

stable  equilbrium  of  the  domain  is  preserved  by  the 

magnetization  of  the  bubble  itself  producing  internal 

magnetic  pressure  which  opposes  the  squeezing  force  of  the 

applied  field.  The  bubble  domain  maintains  its  circular 

shape  because  of  the  force  of  the  magnetic  surface  tension 

of  the  wall  which  surrounds  the  domain.  [Ref.  2:  p.  10] 
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clearly »  the  absence  ct  presence  o£  a  aagnetic  bubble 
dosain  can  be  used  to  represent  a  zero  (0)  or  a  one  (1)  for 
data  storage.  Hoverer,  there  are  several  additional 
reguireeents  which  eusr  be  set  before  this  technology  can  be 
considered  for  use  as  a  data  aediue.  One  of  these 
properties  is  the  aobility  of  aagnetic  doaains.  A  bubble 
will  Bcve  toweurds  any  position  which  ainiaizes  energy.  Such 
locations  can  be  defined  and  created  by  having  small, 
reduced  fields  of  external  bias.  Unbalanced  forces  acting 
on  the  wall  of  the  bubble  will  cause  the  bubble  to  aove  in 
the  direction  of  the  reduced  bias  field.  By  laying  out  a 
'•track”  of  peraallcy  (nickel-iron  alloy)  on  the  aagnetic 
file  and  selectively  altering  the  local  bias  on  the  track, 
it  is  possible  to  move  bubbles  along  a  prescribed  path.  It 
is  iaportant  to  note  that,  although  this  is  siailar  to  bits 
on  a  aagnetic  tape,  there  are  ijc  aechanical,  moving  parts 
involved  as  the  bubbles  aove  along  this  closed  track.  The 
fact  that  the  babble  domains  are  only  a  few  microns  in 
diaaeter  and  may  aove  at  velocities  in  excess  of  several 
aeters  per  second  can  provide  data  rates  in  excess  of 
several  megabits  per  second  [Ref.  2:  p.  10].  The  remaining 
reguiraaents  of  a  storage  aedium  will  be  presented  in  the 
next  section.  It  will  be  seen  that  aagnetic  bubble  doaains 
can  meet  thase  requirsaents  as  well. 
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B.  BOBBLE  OOBAII  DEVICES 

This  section  will  discuss  the  basic  operations  necessary 
tc  support  bubble  doaain  devices.  These  operations  include 
bubble  propagation,  bubble  donain  generation  and  bubble 
doaain  detection.  Soae  basic  bubble  aeaocy  device 
organizations  will  be  presented  along  with  the  theory  and 
prcbleas  associated  with  these  organizations. 

The  effect  of  a  bias  field  on  predefined  tracks  was 
explained  as  the  basis  for  bubble  doaain  propagation.  These 
tracks  are  in  fact  analogous  to  conventional  electrical 
transaission  lines  in  that  the  track  carries  a  signal 
(bubble)  to  various  parts  of  the  systea.  To  aeet  the  needs 
of  data  storage  it  is  necessary  to  be  able  to  ''field  access'* 
the  propagation  track  (viz,,  access  a  specific  location). 
This  implies  aultiple  tracks  (for  acre  than  one  bit)  on  a 
bubble  doaain  device  that  are  all  controlled  and 
sycchronized  by  one  external  magnetic  field  applied  to  the 
entire  device.  By  rotating  this  field,  known  as  the  drive 
field,  a  magnetic  wave  can  be  caused  to  travel  through  the 
device.  The  bubble  domains  "ride"  this  magnetic  wave  and, 
thus,  propagation  takes  place  [Bef.  2:  pp.  16-17].  Of 
course,  it  is  necessary  to  be  able  to  make  the  bubble 
domains  change  their  direction  of  movement.  Special 
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perialloy  circuits  have  b««n  designed  to  provide  this 
function.  Straight  tracks  in  the  fore  of  "T-bar'*  circuits, 
coabined  with  special  90  degree  and  160  degree  corners,  fora 
a  basic  storage  array  [Bef.  3:  p.  87].  The  "t”  shape  is 
used  because  of  the  nagnetic  field  effects  found  around  the 
long  stea  of  the  "T".  Bubbles  that  nove  up  this  stea  are 
trapped  under  the  crossbar,  ks  the  drive  field  rotates,  the 
babble  follows  around  the  top  of  the  "T",  eventually  aoving 
perpendicular  to  its  original  direction  (see  Figure  2.2). 

The  operation  of  bubble  doaain  generation  involves  the 
creation  of  bubbles  (writing  1  bits)  within  the  device. 
Nest  generation  is  done  by  a  process  called  nucleation.  A 
current  of  a  few  hundred  ailliaaps,  aaintained  for 
approxiaately  100  nanoseconds,  is  used  to  create  a  localized 
field  in  opposition  to  the  bias  field.  This  reverses  the 
aagnetization  on  the  fila,  which  causes  the  creation  of  a 
new  bubble  —  its  size  and  position  being  finally  stabilized 
by  the  bias  field  [Bef.  4;  pp,  3-7],  it  is  noted  that  the 
process  of  nucleation  is  teaperature  sensitive  and  an 
iapleaented  systea  aust  provide  a  aeans  of  varying  the 
generation  current  to  aeet  large  teaperature  changes  (failed 
nucleation  or  aultiple  nucleations  can  occur)  . 
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There  are  several  appccaches  to  the  problea  of  bubble 
doiain  detection,  or  reading  bits.  One  technique  is  a 
non^destructive  readout  scheae.  k  aagnetic  dcaain  has 
associated  with  it  a  snail  nagnetic  field.  is  the  bubble 
passes  a  suitable  sense  asplifiei  detector  circuit,  there 
will  be  a  snail  change  in  tne  resistance  of  the  circuit  due 
to  the  nagnetic  field  of  the  bubble.  This  detector  is  icnown 
as  a  nagneto-resistive  sensor  and  has  the  advantage  of  being 
a  passive  (no  overhead)  detection  scheae.  Unfortunately, 
the  "signal**  that  is  neasured,  or  read,  is  but  a  fraction  of 
the  total  power  of  the  bubble  donain.  The  second  approach 
is  one  of  a  destructive  readout.  The  bubble  donain  is 
side-tracked  onto  a  specietl  detection/generation  track. 
Here  the  full  power  of  the  donain  is  sensed  (causing  the 
destruction  of  the  bubble  if  one  is  present)  for  a  stronger 
readout  signal.  The  bubble  (if  present  before  readout)  nust 
now  be  re-generated  and  returned  to  the  storage  track  [Ref. 
5:  p.  41].  This  re-nucleation  obviously  requires  nore  power 
and  sore  supporting  devices  than  the  passive  readout 
schemes. 

The  operations  possible  with  nagnetic  bubble  dcaains  can 
result  in  a  wide  variety  of  architectures  for  bubble 
devices.  Soae  of  the  acre  sophisticated  designs  will  be 
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presented  in  Section  D  cf  this  chapter.  An  explanation  of 
the  first,  and  simplest,  bobble  doaain  device  will  be 
discussed  here. 

An  analysis  of  the  aagnetic  device  froa  a  top-level  view 


reveals 

a  basic  structure  as  seen  in 

Figure  2.3. 

All 

devices 

will  correspond  to  this 

structure 

and,  by 

soae 

aeans. 

iapleaent  the  functional 

blocks 

as 

seen  in 

this 

figure.  Only  the  function  of  redundancy  aanagesent  was  not 
discussed  in  the  above  sections.  This  is  basically  the 
issue  of  how  aanofacturing  techniques  result  in  a  certain 
chip  yield  (viz.,  the  useable  pcrticns  of  each  bubble  chip) . 
It  is  sufficient  to  say  that  various  aechanisas  are 
available  to  provide  redundant  storage  capability  in  a 
device  and  to  keep  a  sap  cf  this  redundancy.  One  aethod 
will  be  discussed  in  Chapter  IV,  Section  A. 

Magnetic  bubble  devices  are  serial  storage  devices  wirh 
block  access  capabilities.  They  are  sisilar  to  conventional 
electrosechanical  sedia,  but  with  several  aajor  differences. 
Bubbles  can  be  stopped  and  started  at  the  bit  level  while 
Bost  devices  are  block-oriented  at  a  larger  data  voluae. 
Bubbles  do  not  have  aechanical  addressing  aids  like 
start-of-tape,  disk  tracks  and  sectors  or  optically-sensed 
index  Barkers.  Soae  other  leans  of  identifying  and  locating 
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data  is  necessary.  It  is  the  chosen  seans  of  addressing 
that  in£laences..the  deTice  design  of  bubble  storage. 

The  siaplest  lagnetic  babble  doaain  device  uses  the 
shift  register  organizaticn.  This  is  depicted  in  Figure 
2.4(a).  Bubble  dosains  rotate  around  a  fixed,  closed  loop 
with  a  simple  generator  and  detector  circuit.  Average 
access  times  require  propagaticn  of  a  bubble  through  half 
the  register.  Transfer  rates  are  dependent  cn  serial 
bit'-by-bit  transfer  through  the  detector.  This  simple 
device  points  out  the  three  operational  characteristics 
(which  the  shift  register  does  not  address  efficiently)  that 
influence  the  design  cf  bubble  devices:  (1)  need  for  high 
data  density;  (2)  fast  access  time;  and,  (3)  fast  transfer 
rates. 

The  najor/minor  loop  chip  organization  depicted  in 
Figure  2.4(b)  was  the  first  attempt  to  address  the  need  for 
improvement  in  these  characteristics.  This  scheme  is 
basically  one  of  block  transfer  between  the  miner  storage 
Iccps  and  the  major  operational  loop.  Bi-directional 
transfer  gates  allow  a  block  of  data  equal  (in  bits)  to  the 
number  of  minor  loops  to  be  transferred  to/from  the  major 
locp  in  a  single  operation.  Transfer  of  all  bits  in 
parallel  is  achieved  by  a  pulse  to  the  commen  transfer  bar 


b<;twe€n  the  lajcr  loop  and  the  ainor  loops.  The  ainor  loops 
rotate  in  synchronization  with  the  aajcr  loop.  The  aajor 
loop  aaJces  one  revolution  tc  perform  its  operation,  then  the 
data  on  the  aajor  loop  is  read  back  to,  or  written  into,  the 
miner  loops.  This  clearly  has  the  advantage  of  being  a 
simple,  sasy-to-build  device  that  provides  some  degree  of 
increased  data  storage  and  access  times.  However,  this 
device,  implemented  as  a  single  entity,  still  suffers  from 
serial  readout  aul  slow  external  transfer  rates. 

The  next  section  will  digress  to  discuss  the  history  and 
development  of  babble  domain  device  technology.  It  is 
presented  merely  as  a  histctical  perspective  to  provide  the 
context  for  the  discussion  cf  architecture  and  technology  in 
Section  D  of  this  chapter. 

C.  BISTORT  AID  DBTBLOPHENT 

Bubble  domain  devices  are  a  relatively  new  technology. 

The  discovery  of  garnets,  a  glasslike  substance,  in  t9S6, 

allowed  the  fabrication  cf  an  environment  condusive  to 

magnetic  domains.  In  1959,  the  first  bubble  and  serpentine 

demains  where  observed  in  certain  ferromagnetic  substances. 

A.  H.  Bobeck,  of  Bell  Telephone  Laberatories,  presented  the 

first  description  of  bubble  devices  at  the  1967 

International  Hagnetics  conference.  Bubble  domains  were 

ignored  at  that  time.  [Bef.  6;  p.  3] 
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The  debut  of  the  bubble  dcaain  cccured  in  1969,  when 
Bobeck,  at  the  INTEBBAG  conference,  updated  his  1967 
presentation.  He  clearly  showed  the  feasibility  of 
controlled  bubble  propagation  in  a  shift-register  device, 
alcng  with  bubble  generation,  replication  and  detection. 
For  the  first  time,  bubble  domains  were  seen  in  the  context 
of  mass  memory  media.  The  technical  interest  generated  at 
that  conference  scon  had  an  effect  on  the  business 
ccmmunity. 

Bell  Systems,  where  the  first  bubble  devices  were 
designed,  utilized  this  technology  for  repertory  dialers, 
voice  message  recording  and  fixed-bead-file  replacement. 
Hitachi  was  the  first  company  to  announce  a  magnetic  bubble 
memory  product  (Oct  1975)  which  was  an  18-chip,  32K  byte 
unit  intended  for  office  machines.  Hewlett-Packard  guickly 
followed  with  applications  in  desktop  calculators. 

Texas  Instruments  intrcduced  the  first  general  purpose 
bubble  device  in  1977.  This  is  a  92K  bit  memory  nodule 
which  they  utilized  in  their  portable  terminals.  It  is 
interesting  to  note  that  at  this  tine  several  of  the  largest 
sesiconductor  memory  manufacturers  (Intel,  Signetics, 
Rockwell  International  and  National  Semiconductor)  entered 
the  arena  of  bubble  devices. 
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The  early  1980* s  have  brought  the  advent  cf  1M  byte 

bubble  devices  with  transfer  rates  in  excess  of  800 

Kbits/sec.  k  detailed  analysis  and  cospariscn  of  the 

different  lesory  technologies  and  applications  will  be 

presented  in  Chapter  III.  The  historical  developaent  of 

bubble  sesory  devices  can  be  referenced  to  the  basic 

characteristics  and  operations  presented  in  this  chapter. 

The  driving  inpetus  has  been  on  providing  denser  packaging 

(sore  bits) ,  faster  access  tises  and  higher  transfer  rates. 

All  cf  these  factors  have  been  necessarily  constrained  in 

the  context  of  narketability  and  sanufacturing  costs.  These 

considerations  have  produced  nany  newcosers  into  the  field 

alcng  with  revolutionary  designs  and  architectures  for 

magnetic  bubble  devices.  However,  the  develcpoent  of  a  new 

technology  that  must  siaul laaeously  coapete  with  established 
•  « 

technologies  (seaiccnductcr,  disk)  has  proven  to  be  a 
liiiting  factor  in  the  advancement  of  magnetic  bubble 
devices  (TI  and  National  withdrew  from  the  market  in  1981 
for  reasons  cf  profitability) . 

D.  CQRBENT  TECHNOLOGY  AND  IBCHlTECTOfiE 

The  attempt  to  improve  the  performance  characteristics 
of  bubble  domain  devices  has  proceeded  along  three  distinct 
paths.  First,  has  been  the  improvement  of  the  components 


sagir: 


laking  up  the  bubble  device  itself  (viz.#  sense  aeplifiers# 
garnet  substrates#  etc.).  Secondly#  there  has  been  each 
effort  directed  at  finding  an  optiaal  architecture  for  the 
basic  oajor/ainor  loop  organization.  Finally#  the  extensive 
use  of  support  circuitry  and  sophisticated  controllers  is 
presenting  a  more  simplified  logical  view  (as  seen 
externally)  of  magnetic  babble  devices. 

The  design  of  physical  compcnents  for  the  bubble  devices 
is  inherently  coupled  to  the  issues  of  magnetism#  field 
electronics  and  garnet  manufacture.  An  extensive  discussion 
of  these  topics#  however#  is  not  within  the  scope  of  this 
thesis.  Therefore#  only  mention  of  the  areas  cf  work  in 
current  research  will  be  made  here.  The  coil  drivers,  as 
originally  described#  produced  a  sine  wave  which  propagated 
bubble  domains  throughout  the  device.  These  sine  waves# 
which  start  and  stop  precisely#  are  difficult  to  implement 
at  a  low  cost  and  have#  therefore#  been  replaced  by  devices 
that  generate  triangular  or  trapezoidal  wave  forms  [Ref.  5: 
p.  41],  Bubble  detection#  whether  destructive  or 
non-destructive#  has  ncn-trivial  current  requirements  for 
the  sense  amplifiers.  A  reduction  in  the  number  of  and 
power  requirements  for  current  sources  is  a  primary  goal  of 
detection  circuit  design.  Finally#  the  issue  of  high  bit 
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density  per  unit  cost,  as  in  all  sesory  devices,  is  being 
addressed  by  new  garnet  substrates.  The  work  in  this  area 
has  the  goal  of  reducing  the  size  of  the  bubble  dcaains  and 
putting  as  sany  tracks  as  possible  cn  a  chip  while  avoiding 
inter-bubble  interference  [Ref.  7:  p.  63].  Current 
technology  is  supporting  1  dbit  devices  with  areas  of  less 
than  cne  square  centiseter  and  with  a  bubble  dosain  diaseter 
of  two  (2)  aicrons. 

The  first  bubble  dosain  device  architecture,  the  shift 
register,  suffered  fros  twc  sain  inadequacies:  (1)  a  single 
defect  in  the  shift  register  chain  resulted  in  a  bad  chip; 
and,  (2)  data  just  entered  had  to  be  cycled  through  the 
entire  shift  register  chain  tc  be  read,  resulting  in  slow 
data  access.  The  sajor/oinor  Icop  design  addressed  these 
prcbless.  Data  is  generated  in  a  aajcr  loop,  circulated, 
read  and  rotated  back  to  be  restored  in  the  original  minor 
locp  positions.  Shorter  cycle  times  are  achieved  if  this 
need  to  restore  data  is  removed.  This  idea  was  incorporated 
into  the  "block  replicate"  architecture.  This  is  a 
multilcop  arrangement  where  the  miner  loops  communicate  with 
a  read  track  via  replicate/transfer  gates,  allowing  reading 
without  disturbing  the  miner  locp  data  (see  Figure  2.5). 
Erasure  is  accomplished  by  activating  transfer  without 
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Figure  2.5  Block/ Re plicate  Architecture 


replicate.  k  separate  write  track  allows  block  data  to  be 
written  to  the  minor  loops  via  transfer-only  gates.  The 
idea  behind  the  replicate/transfer  gate  is  that  a  bubble 
domain  is  replicated  (by  splitting  or  nucleating  a  new 
bubble)  and  then  transferred  to  the  read  track  for 
prccessing  by  the  detector.  The  conventional  aajor/ainor 
Iccp  design  did  this  one  bit  at  a  time  on  the  major  loop 
whereas  the  block/replicate  design  replicates,  in  parallel, 
all  the  minor  loop  bits  in  a  block. 

The  physical  makeup  of  bubble  domains  and  their 
resulting  interactions  requires  that  minor  loops  have  bubble 
doiains  two  (2)  bits  apart  (viz.,  an  empty  position  between 
every  position  where  there  could  be  a  domain) . 
Consequently,  a  major  loop  or  read/write  tracks  could  only 
generate  on  every  other  cycle,  that  is,  they  would  cycle 
once  uselessly  while  the  minor  loops  cycled  to  bypass  the 
empty  positions  on  the  major  loop.  Data  can  be  read  on 
every  cycle  by  splitting  the  data  storage  into  odd  bits 
(loops)  and  even  bits  (loops)  [Ref.  3:  p.  95].  This 
arohitecture  is  depicted  in  Figure  2.6.  To  perform  a  write 
operation,  the  entire  block  is  generated  in  bcth  write 
tracks.  The  odd  and  even  generate  tracks  are  aligned 
simultaneously  with  the  minor  loops  and  the  write  takes 
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Figure  2.6  B 1 oc k / Re p 1 1 ca t e  Odd/Even  Architect 


place.  To  perfora  a  read  operation,  the  replicated  gates 
are  activated  on  the  odd  and  even  storage  loops.  The  two 
tracks  are  one  bit  apart  so  that  the  odd  and  even  tracks  are 
interlaced  as  they  go  to  the  detector,  providing  a  read  on 
every  bit  position. 

All  the  aultiloop  architectures  use  redundancy  to  solve 
the  problea  of  defects  in  chip  lanufacturing.  Extra  storage 
capacity  is  provided  on  the  chip  by  having  sore  sinor  loops 
than  are  actually  required  to  aeet  the  device  aesory 
capacity.  Bad  loops,  noraally  discovered  in  factory 
testing,  are  located  and  put  into  sose  fors  of  a  sap. 
Defective  loop  addresses  are  usually  stored  in  a  FROa  within 
the  bubble  controller  cr  in  sose  cf  the  redundant  loops 
thesselves.  fRef.  3:  p.  87] 

To  become  an  econcsically  practical  and  versatile 
device,  it  is  essential  that  babble  sesories  present  a 
functionally  siaple  and  logical  view  to  potential  users. 
Buch  effort  has  been  put  forth  in  the  area  cf  support 
circuitry  which  handles  the  low-level  functions  involved 
with  the  nanageeent  of  bubble  devices.  The  biggest  addition 
to  the  support  circuitry  has  been  in  the  area  of  bubble 
■escry  controllers.  These  controllers  (which  are  usually 
40-pin  HMOS  devices)  provide  bus  interface,  generate  all 
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systei  tiling  and  contrcl,  laintain  leiory  address 
infcraation  and  process  the  user's  external  software 
requests  and  coiaands  to  the  bubble  devices  [ Bef .  8:  p.  57]. 
The  conceptual  purpose  of  the  controller  is  to  sake  the 
lagnetic  bubble  aeaory  lock  like  a  peripheral  tc  the  host 
coiputer.  The  sense  amplifiers  used  for  detection  have  been 
incorporated  to  include  multi-channel  capabilities  (viz.,  to 
handle  parallel  readouts  from  acre  than  one  device  to  allow 
high  data  transfer  rates) .  This  results  in  a  logical  aeaory 
organization  which  can  span  "n"  devices,  where  ''n"  is  the 
nuaber  of  bits  in  the  host  system's  word  size  or  data  bus 
size.  Data  protection  and  save-circuitry  have  been  provided 
to  prevent  bubble  contaaicaticn  in  the  event  of  a  power 
loss,  which  can  lead  to  a  situation  where  loops  are  not 
rotated  back  to  their  starting  point.  This  is  necessary  for 
correct  addressing.  The  controller,  utilizing  a  bad-loop 
map,  also  automatically  substitutes  redundant  loops  for  bad 
loops  on  a  chip. 

The  current  architecture  and  technology  of  bubble  domain 
devices  are  influenced  by  the  need  to  compete  with  existing 
secondary  aeaory  devices.  Consequently,  auch  effort  is 
being  put  into  both  the  physical  manufacturing  of  the  bubble 
devices  as  well  as  into  the  logical  architecture  and  user 


interface.  It  is  clear  that  any  architecrare  east  allow 
naqnetic  bubble  neaories  tc  be  easily  interfaced  to  existing 
coiputer  systees. 

The  next  chapter  will  provide  an  analysis  and  comparison 
of  eagnetic  bubble  devices  to  current  aeaory  technologies, 
with  particular  eaphasis  on  the  specific  strengths  and 
weaknesses  of  aagnetic  devices.  Applications  fcr  aagnetic 
devices  will  also  be  discussed  in  depth. 
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III.  APPLICABIIITI  Of  aicaCTic  BOBBLe  gEBOftlZS 
i.  COBPABISOB  OP  BASS  STOBA6B  lECHMOLOGZSS 

Magnetic  babble  Daaories  should  not  be  considered  to  be 
in  direct  conpetition  with  existing,  well-established  for as 
of  ncn-volatile  storage.  Bather,  bubble  neaories  should  be 
viewed  as  a  secondary  storage  technology  which  can  fill  the 
well  known  capacity/cost  and  perfornance/cost  gaps  in 
conventional  aeaory  hierarchies. 

In  Figure  3. 1  are  plotted  the  areas  inhabitable  by  a 
wide  range  of  aeaory  technologies.  As  can  be  seen  in  Figure 
3.1,  there  is  a  large  gap  between  core  technology  and 
fixed-head  disk  technology.  At  present,  attempts  to  fill 
this  gap  are  being  made  by  electron-beam  accessed  memories 
(EEAH) ,  charge-coupled  devices  (CCD)  and  magnetic  bubble 
memories  (BBB) .  Although  EBAB  probably  has  the  lowest 
potential  cost  per  bit  of  the  three  technologies,  it 
reguires  fragile  vacuum  components  which  severely  limit 
applications. 

CCD  technology  has  not  sufficiently  surpassed  dynamic 
BAH  technology  to  become  preferable  from  either  an  economic 
or  a  performance  standpoint.  Currently,  CCD  memory  access 
tiaes  (approximately  100  micrcseconds)  are  much  slower  than 
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Figure  3.1  Memory  Technology  Access  Times  and  Capacities 
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these  of  seaiconductor  EAN  (70-2000  nanoseconds) .  An 
additional  disadvantage  of  CCD  senory  is  its  susceptibility 
to  alphaparticle  radiation.  As  is  the  case  with  RAH 
technology,  as  meaory  densities  have  increased,  the 
capacitance  needed  to  store  the  charge  for  each  bit  has 
decreased,  aalcing  it  sore  probable  that  an  alphaparticle 
strike  will  cause  a  soft  error.  [Ref.  9] 

Magnetic  babble  oeoories,  cn  the  other  hand,  have  the 
advantages  of  non-vo latility,  higher  density  and  lower  cost 
per  bit  over  CCD  and  RAM  technologies,  and  the  advantage  of 
solid-state  technology  over  EBAH.  Evaluation  of  the 
performance  of  magnetic  babble  memories  is  usually 
accomplished  utilizing  the  same  parameters  as  those  used  for 
evaluation  of  floppy  disk  devices.  Valid  comparisons  can  be 
made  between  the  performances  of  the  two  technologies 
because  of  their  common  roles  as  secondary  storage 
technologies. 

Magnetic  bubble  momories  are  organized  as  shift 
registers  for  block  access,  with  the  natural  block  size, 
referred  to  as  a  page,  being  equal  to  the  number  of  minor 
locps.  Access  to  data  is  accomplished  by  shifting  bubbles 
in  the  minor  loops  and  transferring  the  appropriate  page  to 
the  major  loop.  The  data  is  then  read  or  written  by 
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shifting  babbles  around  the  aajor  loop.  This  organization 
allcvs  for  the  cooputation  cf  both  a  seek  tine  and  an  access 
tine  to  parallel  disk  perforiance  aeasures  of  the  saae 
naaes. 

The  seek  tiae  of  disk  systeas  is  noraally  taken  to  aean 
the  time  it  takes  to  neve  the  read/write  head  to  the  track 
containing  the  desired  data.  This  is  analogous  to  rotating 
the  minor  loops  in  a  magnetic  bubble  device  to  place  the 
desired  page  on  the  major  loop.  Seek  tine  for  a  bubble 
meacry  device  is,  therefore,  dependent  on  the  number  of 
shifts  required  in  the  miner  loops  and  the  shift  rate  of  the 
device.  Current  bubble  memory  architectures  contain  from  64 
to  4096  pages  in  the  miner  loops  and  have  a  relatively 
coamcn  shift  rate  of  100  KHz  [ Bef .  10:  p.  29].  Taking 
worst  case  to  be  a  complete  rotation  of  the  minor  loop  at  10 
microseconds  per  shift  results  in  worst  case  seek  times  of 
6.4  -  41.0  milliseconds.  Assuming  half  of  these  values  to 
be  an  average  yields  average  seek  times  of  3.2  -  20.5 
milliseconds. 

Combining  this  seek  time  with  the  time  required  to 
rotate  to  the  first  bit  of  data  in  the  read  or  write  track 
yields  the  data  access  time  for  a  magnetic  bubble  device. 
By  assuming  an  average  major  loop  size  of  144  bits  (the 


actual  laajoc  loop  size  of  the  TIB0203  92K  bit  device)  and 
applying  the  shift  rate  of  100  KHz,  a  worst  case  read/vrite 
delay  tine  of  1.44  ailliseccnds  is  obtained.  Confining  this 
delay  with  the  previously  conputed  seek  tine  results  in 
average  access  tines  of  3.92  -  21.72  nilliseconds  for 
magnetic  bubble  devices,  which  is  considerably  faster  than 
the  average  access  times  of  115  -  500  nilliseconds  for 
floppy  disk  devices.  [Hef.  11:  p.  1] 

The  data  transfer  rate  for  a  magnetic  bubble  nemory  is 
determined  by  the  number  of  bits  per  page,  the  shift  rate  of 
the  device  and  the  number  of  cycles  required  to  transfer  the 
page  of  data  out  cf  or  into  the  device.  Basic  transfer 
rates  are  40  >  100  Kbits/second  for  individual  magnetic 
bubble  device  organizations.  These  rates  may  be  greatly 
improved  by  operating  magnetic  bubble  devices  in  parallel 
(mere  than  one  device  at  a  time).  Bubbl-Tec’s  HDC/HDB-11 
system,  for  example,  utilizes  four  Ifi  bit  bubble  devices  in 
parallel  to  attain  a  peak  transfer  rate  of  approximately  800 
Kbits/second  [Hef.  10:  p.  29].  Such  uses  of  parallel 
implementations  allow  magnetic  bubble  systems  tc  achieve 
transfer  rates  in  excess  cf  those  cf  floppy  disk  devices 
(125  -  500  Kbits/second) . 
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The  solid-’State  nature  of  aagnetic  bubble  devices  is  a 
great  contributing  factor  to  their  reliability.  Since  there 
are  nc  moving  parts,  the  maintenance  normally  associated 
with  electromechanical  devices  is  avoided.  An  additional 
characteristic  of  magnetic  bubble  technology  is  very  low 
error  rates.  Manufacturers'  tests  have  produced  hard  error 
rates  of  1  in  1  trillion  bits  and  soft  error  rates  of  1  in  1 
billion  bits  [Sef.  11:  p.  2].  A  hard  error  occurs  when  a 


bit  is  read 

incorrectly 

during 

several 

consecutive 

read 

operations. 

Soft  errors  occur 

when 

a  bit  is 

read 

incorrectly 

on  one  read 

operation 

and 

correctly  read 

on 

subsequent  operations. 

The  final  area  of  evaluation  deals  with  the  physical 
characteristics  of  the  devices.  Some  additional  properties 
attributable  to  the  solid-state  nature  of  magnetic  bubble 
devices  are  low  power  requirements,  light  weight  and 
ruggedness.  Magnetic  bubble  memories  may  be  sealed  from  the 
outside  world  and,  thus,  are  immune  to  the  effects  of  dust, 
humidity,  dirt  and  vibration.  Like  most  other  technologies, 
however,  magnetic  bubble  memories  do  suffer  temperature 
limitations.  This  limitation  is  due  to  the  required 
matching  of  the  temperature  coefficient  of  the  chip  garnet 
to  that  of  the  permanent  magnet.  Currently,  the  specified 
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operating  tenperature  range  for  aost  bubble  devices  is  froa 
0  to  50  degrees  Celsius  but  ncn-cperating  teaperatures  aa; 
range  froa  -40  ro  *85  degrees  Celsius  without  less  of  data 
[Ref.  11:  p.  2]. 

Hagnetic  bubble  aeaory  technology  can  provide  a  high 
density,  low  power,  rugged,  reliable  and  non-volatile  data 
storage  media.  It  is  expected  that  the  cost  of  bubble 
aeaory  devices  will  continue  to  decrease  and  their  density 
will  continue  to  increase,  making  thea  an  even  acre  viable 
alternative  mass  storage  technology  [Ref.  12:  p.  38]. 

B.  APPLICATIONS  OF  HA6HBT1C  BOBBLE  HEBOBX 

The  variety  of  applications  for  aagnetic  bubble  aeaories 
is  steadily  increasing.  As  system  designers  begin  to  take 
advantage  of  the  properties  of  magnetic  bubble  aeaory 
devices,  increasing  nuabers  of  bubble  aeaories  are  being 
designed  into  systems,  added  on  as  back-up  storage  or  used 
to  replace  other  storage  technologies.  The  variety  of 
applications  for  magnetic  bubble  devices  includes  word 
prccessing,  voice  synthesis,  portable  terminals, 
ccaaumications,  numerical  aachine  tool  ccntrollers, 
aerospace  and  defense  applications  as  well  as  others  [Ref. 

12:  p.  38]. 
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The  high  perforaance  and  low  cost  of  aagnetic  bubble 
devices  are  the  two  aajor  characteristics  driving  aost  of 
the  applications.  Current  prices  for  bubble  aeaories  are 
roughly  100  aillicents  per  bit  with  projected  decreases  to 
less  than  30  aillicents  per  bit  in  aid  1982  [Ref.  10:  p. 
26].  Access  times  of  currently  available  bubble  aeaories 
are  approximately  ten  times  faster  than  these  of  movable 
head  disks  and  the  data  transfer  rates  of  the  two 
technologies  are  comparable  [Ref.  13:  p.  53].  Some  magnetic 
bubble  memory  systems  have,  however,  attained  data  rates  of 
96  nbits/secend  and  a  system  addressability  of  4096t!  bits 
[Ref.  14:  p.  141].  Another  performance  advantage  is  the 
simple  addressing  scheme  which  requires  only  an  address  and 
a  read  or  write  signal.  It  is  estimated  that  a  bubble 
aeacry  controller  would  have  1/4  to  1/2  the  complexity  of  an 
equivalent  disk  controller  [Ref.  15:  p,  37]. 

Another  major  contributing  factor  to  the  increase  in 
applications  of  magnetic  bubble  devices  has  been  the 
development  of  custom  inxerfacs  and  support  circuits.  These 
integrated  devices  free  the  system  designer  from  the  need  to 
beceme  intimately  familiar  with  the  electrical  and  magnetic 
properties  of  bubble  memories,  thus,  allowing  mere  time  to 
be  spent  on  the  system  aspect  of  the  application.  There  are 


alsc  aany  coaplete  aagnetic  bubble  neaory  systea  asseablies 
which  can  be  plugged  directly  into  DEC  LSI-1 1S/  Intel 
NOLTIBUS  systems,  TT  9900s,  S-100  systems  and  STD-bus 
machines  [Ref.  10:p.  26].  Custom  constructed  systems 
reguire  no  separate  chassis  or  power  supply  and  can  be 
constructed  entirely  on  printed  circuit  boards  that  can  plug 
directly  into  existing  bus  structures. 

Research  conducted  by  IBB  (San  Jose,  California)  has 
indicated  that  magnetic  bubble  memories  must  have  a  capacity 
of  at  least  4M  bits  in  order  to  challenge  RAM  devices  on  the 
basis  of  cost.  Bubble  memory  devices  are  approaching  this 
density  with  1H  bit  devices  currently  cn  the  market 
(TI31000,  Intel  7110  and  National  NBM2011).  Rockwell  has 
demonstrated  a  4M  bit  device  developed  under  military 
contract  and  Bell  Labs  has  fabricated  an  experimental  11.5(1 
bit  bubble  device  which  is  only  1.3  inches  square.  [Ref.  9] 

Since  magnetic  bubble  memories  are  of  a  solid-state, 
non-volatile  technology,  they  are  ideally  suited  for 
portable  applications  as  well  as  for  providing  additional 
storage  for  traditional  and  parallel  processing  systems. 
The  compactness,  low  power  requirement,  quietness  and  low 
maintenance  requirement  have  made  bubble  devices  ideal  for 
office  equipment  applications.  Additionally,  the  ruggedness 
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of  the  devices,  when  coabined  with  the  above 
characteristics,  aakes  tbea  ideal  for  use  in  the  harsh 
environaents  often  encountered  in  control  and  ailitary 
applications. 


IV 


i.  TIB0203  HAGHBTIC  BOBBLI  BEllOBT 

The  TIB0203  magnetic-bubble  aemoEy  is  a  non-volatile, 
92,304  bit,  bubble  memory  chip.  The  chip  is  manufactured  as 
a  lu-pin  dual-in-line  package  which  contains  the  coils  for 
providing  a  rotating  magnetic  field,  a  permanent  magnet  to 
maintain  data  storage  and  a  magnetic  shield  structure.  The 
TIE0203  is  designed  as  a  ccnventicnal  major/ainor  loop 
architecture  with  144  minor  loops  (circular  shift  registers) 
of  641  bits  each.  Transfers  of  data  to  or  from  the  single 
major  loop  are  done  in  parallel.  The  major  loop  contains 
the  detector  circuits^^  as  well  as  the  generate,  replicate, 
and  annihilate  control  functions.  [Bef.  16:  p.  11]  ~ 

Detection  is  accomplished  in  a  passive  scheme  utilizing 
two  magneto-resistive  elements.  Ih  e  elaments  are  out  of 
phase  with  each  other  and  operate  on  alternate  cycles  (viz., 
alternately  reading  bit  positions) .  Noise  produced  in  the 
circuit  due  to  circuit  layout,  control  pulses  and  from  the 
magnetic  fields  is  reduced  by  cancellation  when  the  elements 
are  used  with  a  bridge  circuit  and  an  external  differential 
amplifier.  C^ef.  16:  p.  14] 
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Generation  of  babble  doaains  is  done  ?ia  nucleation  as  a 
specified  current  pulse  is  sent  through  the  generate  loop. 
Transfer-in  is  accoeplished  as  follows:  (1)  a  data  string 
equal  in  length  to  the  number  of  minor  loops  (called  a  page) 
is  generated:  (2)  this  string  is  shifted  such  that  the  first 
bit  is  positioned  over  the  first  minor  loop;  (3)  the 
transfer  gates  are  energized.  Each  of  the  641  minor  loop 
page  positions  is  useable.  Transfer-out  is  accomplished  in 
the  reverse  manner.  Once  a  page  is  on  the  major  loop  it  is 
eligible  for  one  of  two  operations  in  a  serial  tit-by-bit 
manner:  replicate  or  annihilate.  [Ref.  16:  p.  11] 

A  replicate  operation  causes  the  bubble  domain  to  be 
stretched,  then  split  in  tuc  with  one  bubble  diverted  to  the 
detector  and  the  other  diverted  back  to  the  major  loop  and 
subseguently  to  the  minor  loop  for  storage.  This  procedure 
provides  for  a  non- destructive  readout.  Annihilation  is 
provided  by  transfering  the  babble  domain  off  the  major  loop 
and  into  the  detector  track  where  it  is  propagated  off  the 
chip. 

The  chip  is  manufactured  with  157  minor  loops,  which 
provides  a  redundancy  of  13  minor  loops.  Defective  minor 
loops  are  identified  at  the  factory  and  a  nap  is  printed  on 
the  device  before  shipment.  The  map  has  the  addresses  of 
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defective  loops  printed  in  bexadeciaal  and  it  is  the 
rasponsibilizy  of  the  controller  to  prevent  the  use  oi  these 
bad  loops.  [Bef.  16:  p.  12] 

The  coil  drive  for  the  IIB0203  uses  triangular  wave 
foras  generated  froa  two  orthogonal  coils  that  are  driven  90 
degrees  out  of  phase.  A  cycle  is  the  tine  required  for  the 
magnetic  field  to  rotate  360  degrees.  Minor  loops  are 
spaced  two  bits  apart  with  one  bit  separation  on  the  aajor 
locp.  Thereforer  all  major  loop  operations  are  perforaed  at 
half  the  drive  frequency.  The  drive  frequency  for  the 
TIE0203  is  100  KHZ.  [Ref.  16:  pp.  13-14] 

The  TIB0203's  components  and  specifications  are 
copletely  described  in  Beference  16,  the  "TIB0203 
Magnetic-Bubble  Heacry  and  Associated  Circuits  Manual." 
Operating  characteristics,  block  diagraas  and  environaental 
conditions  for  the  function  timing  generator,  sense 
amplifier,  function  driver,  coil  driver  and  thermistor  are 
also  included  in  this  manual. 

B.  PC/H  HBB-00  BUBBLE  MBHOBT  SISIEH 

MEB-SO  Bubbl-Board  is  the  registered  trademark  of  a 
magnetic  bubble  device  marketed  by  Bubbl-Tec,  a  division  of 
Pacific  Cyber/Metrixs,  Inc.,  located  in  Santa  Clara, 
California.  The  MBB-80  is  a  complete  bubble  aeacry  storage 


syst€B  designed  to  te  coapatible  with  all  8~bit  and  16-bit 
oicrccoapaters  that  utilize  Intel's  HULIIBOS  architecture. 
The  board  provides  92,304  eight-bit  bytes  of  non-volatile 
aeaory  as  well  as  all  required  control  logic  and  buffering 
necessary  to  interface  to  the  MOLTIBOS  systea. 

The  entire  systea  is  contained  on  one  aulti-layer, 

printed-circuit  board.  The  printed-circuit  board  has  the 

standard  SDLTIBOS  diaensions  and  requires  one  card-cage  slot 

on  the  HOLTIBOS.  The  board  is  built  around  eight  (8)  of  the 

TIE0203  bubble  aeaory  devices  described  in  the  preceding 

section.  hll  necessary  support  chips  are  included  on  the 

single  board.  The  functions  of  the  controller  are  provided 

in  hardware  and  include  the  following  priaitive  coaaands: 

Fill  Buffer  Bead  Hultiple  Pages 

Eapty  Buffer  Initialize 

Write  Single  Page  Bead  Status 

Bead  Single  Page  Enable/Disable  Interrupt 

Write  hultiple  Pages  Beset 

Host  interface  with  the  contrcller  is  via  aeacry-aapped  I/O, 
using  sixteen  (16)  consecutive  user-defined  locations  in  the 
CPU  address  space.  The  HBB  controller  can  be  set  to 
recognize  any  sixteen  consecutive  addresses  on  a  16-Iin6  or 
20-line  address  bus.  These  sixteen  addresses  correspond  to 
sixteen  registers  in  the  bubble  aeaory  controller  which  are 
utilized  to  read  status  inforaation,  set  HBE-80  board 
configurations  and  perfcra  read/write  operations. 
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The  aBB>80  typically  consuaes  less  than  20  watts  of 
power.  Voltage  reguiresents  consist  of  '*’5  volts  at  1.5 
amperes,  >12  volrs  at  200  milliamps  and  ~12  volts  at  700 
nillianps.  Logic  is  provided  to  protect  stored  data  during 
power-up,  power-down  and  when  unexpected  power  failures 
occur.  The  HBB-80  can  operate  in  a  temperature  range  of  0 
to  50  degrees  Celsius.  The  magnetic  environment  is  less 
than  20  Oersted  at  the  babble  device  and  the  board  weighs  18 
ounces.  A  complete  description  of  the  HBB-80,  its 
printed-circuit  board  layout  and  schematic  diagrams  are 
contained  in  fieference  17. 

C.  OEVELOPaBITAL  STSTBB 

The  INTEILEC  Double  Density  Hicrocoaputer  Development 
System  (INTELIEC  OD  HDS)  with  an  iSEC  86/1 2A  single-board 
computer,  an  iSBC  20  2  double  density  disJc  controller  and  the 
CF/H-86  (version  1.0  as  modified  by  Reference  18)  operating 
system  (hereafter  referred  to  as  CP/H-86)  is  the  host  system 
for  this  implementation.  This  system  is  located  in  the 
Hicrocomputer  Laboratory  at  the  Naval  Postgraduate  School, 
Hctterey,  California,  and  will  be  described  in  greater 
detail  in  the  next  section.  This  host  system  was  found  to 
have  a  severe  inadeguacy  in  the  area  of  software  development 
tods.  The  current  CP/M-86  operating  system  had  no 
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interface  to  a  printer.  The  CP/Il-86  resident  text  editor 
(£C)  consists  of  relatively  primitive  coasands  which  do  not 
allow  a  wide  range  of  text  manipulation.  For  these  reasons 
an  alternative  system  had  to  be  chosen  for  use  in  software 
development . 

The  text  editor  chosen  was  the  screen-oriented  editor  of 
the  Altos  OCSD  Pascal  (Version  1.4b)  system.  Required  Intel 
8080  and  Intel  8086  assembly  language  programs  were  written 
in  files  created  utilizing  the  Pascal  system  editor.  The 
overall  efficiency  of  software  development  was  greatly 
enhanced  by  the  use  of  this  editor.  Once  a  file  was 
coipleted,  it  was  transferred  to  the  Altos  CP/H-80  (Version 
2.2}  system  by  executing  the  8080  assembly  language  program, 
CPXFEB,  which  executes  under  CP/tl-80  (hereafter  referred  to 
as  CP/El) .  CPXFBR  is  a  Naval  Postgraduate  School  (NPS) 
Microcomputer  Laboratory  utility  program  that  provides  for 
the  intersystem  transfer  of  formatted  files  between  the 
Altos  CP/M  and  Pascal  operating  systems. 

Once  transferred  to  the  CP/M  system,  Intel  8080  and  3086 
assembly  language  programs  could  be  assembled  utilizing  the 
standard,  CP/H  resident,  Intel  8080  assembler  (ASH)  or  Intel 
8086  cross-assembler  (ASM86) ,  respectively.  Errors 
encountered  during  assembly  could  be  corrected  utilizing  the 


CP/M  resident  editor  (TED)  and  a  corrected  copy  of  the  file 
transferred  bacic  to  the  Pascal  systea  for  purposes  of 
consistency.  Once  a  program  is  successfully  assembled  it  is 
ready  to  be  transferred  to  the  INTELLEC  DC  MDS  for 
execution. 

The  Intel  8080  or  8086  executable  files  (.CCM  or  .CMD 
respectively)  are  transferred  to  the  INTELLEC  DD  HDS  by 
utilizing  the  NPS  Microcomputer  Laboratory  utility  program 
called  SOXEES  for  intersystem  transfer  of  files  between  the 
single  density  IMTELLEC  MDS  and  the  INTELLEC  DD  MDS.  Piles 
can  be  transferred  directly  from  any  CP/M  compatible  dish, 
on  either  drive  of  the  single  density  MDS,  to  any  CP/M 
compatible  disk  on  either  drive  of  the  double  density  HDS, 
utilizing  SDXFER. 

All  complete  assembly  language  programs  are  maintained 
on  the  Altos  OCSD  Pascal  system  disks  only.  The  Altos  CP/M, 
double  density  HDS  CP/M  and  double  density  MDS  CP/M-dd 
system  disks  contain  cnly  executable  files. 

D.  IMPLEMENTATION  HOST  SYSTEM 

The  final  implementation  utilizes  the  previously 
mentioned  host  system  consisting  of  an  INTELLEC  Double 
Density  MDS  system  and  iSBC  202  disk  controller,  both  under 
the  control  of  an  iSBC  86/12A  single-board  computet,  and  the 
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CP/H-d6  operating  systen.  Initial  low  level  buttle  aesory 
testing  was  conducted  utilizing  the  INTELLEC  DD  ECS  and  its 
resident  Intel  8030  aicroprocessor.  After  initial  testing 
of  the  device,  all  remaining  development,  testing  and 
' mplementat ion  utilized  the  iSBC  86/12A  and  its  Intel  8086 
microprocessor  instead  of  the  Intel  3080. 

The  IMTELLEC  DD  RDS  is  a  coordinated,  complete  computer 
system  designed  around  the  Intel  8080  microprocessor.  The 
standard  INTBLLEC  DD  MOS  system  consists  of  an  Intel  3030 
microprocessor,  two  (2)  32K  byte  BAH  memory  modules,  a 
monitor  program  with  six  (6)  fully  implemented  I/O 
interfaces  and  a  front  panel  control  module,  used  to  provide 
a  256  byte  bootstrap  program,  the  eight  (8)  level  bus  access 
control  circuitry  and  a  real  time  clock.  These  system 
modules  are  contained  in  an  eighteen  (18)  card  chassis  which 
features  the  Intel  MULTIBUS,  which  supports  multi-processor 
configurations  and  allows  for  ••master-slave”  relationships 
between  nodules.  The  one  addition  to  the  standard  systen  is 
the  use  of  an  iSBC  202  double  density  disk  controller  module 
to  handle  the  dual  floppy  disk  drives.  [Ref.  19] 

As  previously  mentioned,  once  past  the  initial  testing 
phase,  the  INTELLEC  DC  MCS  systen  was  operated  with  the  iSBC 
86/12A.  This  was  accomplished  by  removing  the  two  memory 
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boards  and  the  Intel  3030  CPO  board  and  placing  the  iSBC 
86/12A  in  a  bus-oaster  slct  (an  odd  numbered  slot)  in  the 


INTELIEC  DD  MOS  chassis.  The  iSBC  86/12A  is  a  single-board 
microcomputer  based  on  the  Intel  8086  16-bit  microprocessor. 
Included  on  the  board  are  64K  bytes  of  dynamic  BAH,  three 
programmable  parallel  I/O  ports,  programmable  timers, 
priority  interrupt  control,  serial  communications  interface 
and  MOLTIBOS  interface  control  logic.  £aef.  20] 

The  CP/M-86  operating  system  utilized  with  the  host 
system  is  a  product  of  Digital  Besearch.  The  specific 
operating  system  used  was  Version  1.0  with  the  modifications 
made  in  Reference  18.  CP/H-86  is  a  microcomputer  operating 
system  for  Intel  3086  based  microcomputers.  CP/n-60,  the 
predecessor  of  CP/N-86,  was  designed  for  Intel  8080  based 
microcomputers  and,  as  nearly  as  possible,  file 
compatibility  between  CF/M-80  and  CP/B-86  has  been 
maintained.  CP/n-86  provides  built-in  utility  commands  and 
transient  system  programs.  Additionally,  the  user  has  the 
ability  to  execute  user-defined  transient  programs.  The 
system  transient  programs  include  a  dynamic  debugger 
(DCT86) ,  a  primitive  text  editor  (EO)  and  an  Intel 
compatible  assembler  (ASn86) .  (Bef.  18] 
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The  entice  inpleaentat ion  host  systen  is  located  in  the 


diccocoapatec  Laboratory  at  the  Naval  Postgraduate  School, 
Monterey,  California.  Each  of  the  individual  coeponents  of 
the  system  (INTELLEC  DD  MCS,  iSBC  86/12A  and  CP/M-86)  is 
described  in  great  detail  in  the  reference  listed  after  the 
discussion  of  the  conponent. 
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V.  LOW-LEVEL  BOBBLE  DEfICB  INTERFACE 


i.  IHTEL  8080  IBPLXHEHTITIOH 

Prior  to  interfacing  the  888-80  8ubbl-£oard  with  the 
iSEC  86/12A,  initial  testing  was  conducted  by  interfacing 
the  HBB-80  with  the  standard  INTELLEC  DD  MDS  system  and  its 
resident  Intel  8080.  The  Intel  8080  was  chosen  for  initial 
MBE-80  testing  because  of  the  authors*  faiiliarity  with 
Intel  8080  assembly  language  and  because  of  the  availability 
and  utility  of  the  existing  CP/M-80  operating  system  and 
support  programs  (viz.,  DDT  and  TED) . 

Before  any  software  interfacing  or  testing  could  be 


attempted. 

the 

hardware  interface 

between 

the 

8BB-80 

Bufcbl-Board 

and 

the  IMTELLEC  DD  NOS 

system 

had 

to  be 

constructed  and  verified.  This  interfacing  reguired  the 
modification  of  power  circuits  within  the  NDS  system  and 
necessitated  the  addition  of  a  manual  power-protect  switch. 
The  modification  of  power  circuits  was  required  to  provide 
the  0.550  amps  at  -12  volts  required  by  the  WBB-80 
Bufcbl-Board  circuitry.  The  remaining  power  requirements  of 
the  MBB-60,  1.0  amps  at  *5  volts  and  0.12  amps  at  *^2  voltSr 
are  available  on  the  standard  EDS  system's  bus.  The  manual 
power-protect  switch  was  provided  on  an  additional 


d€velcpient  board  and  was  required  to  protect  the  babble 


devices  during  noraal  power-up  and  power-down.  Babble 
device  contamination,  as  described  in  Reference  17,  can 
result  if  the  babble  devices  are  accessed  while  the  power 
supplies  are  not  within  the  specified  tolerance  of  plus  or 
minus  3  percent.  The  manual  switch  provides  protection  only 
during  noraal  power-up  and  power-down.  A  more  comprehensive 
power-protect  system  will  be  needed  to  provide  full 
protection  against  inadvertant  power  loss  in  a  production 
system.  [Ref.  17] 

Software  interfacing  and  testing  of  the  HBB-80  was 
conducted  by  writing  and  executing  an  Intel  8080  assembly 
language  program  called  0IAG80.ASH  (a  program  listing  of 
0IAG80.AStI  is  contained  in  Appendix  A).  This  program 
utilizes  sixteen  (16)  consecutive  addresses,  beginning  at  a 
program  defined  bubble  memory  controller  base  of  04000H,  as 
registers  for  communication  with  the  {lBB-80.  The  Inhibit 
ROe/RAti  signals  provided  by  the  bubble  memory  controller 
allow  the  placement  of  the  controller  base  address  and  the 
sixteen  registers  anywhere  in  the  on-board  64K  bytes  of  RAN 
not  in  direct  conflict  with  CP/ll-80  usage. 

Initial  attempts  at  execution  of  0IAG80  resulted  in 
premature  program  termination.  Attempts  at  debugging  the 
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prcgiaa  by  asing  DDT  failed  because  single-stepping  through 


the  progcan  resulted  in  nrccer  execution.  Pull-speed 
execution,  however,  continued  to  result  in  preeature 
teraination  at  unpredictable  and  unrelated  points  in  the 
prcqrao,  indicating  either  a  timing  or  a  device 
coapatibility  problem.  Further  investigation  revealed  that 
the  teraination  of  execution  was  accompanied  by  a  bus 
tiaeout  signal  from  the  NES  system  (the  bus  timeout  signal 
is  initiated  when  a  bus  request  is  made  and  no 
acknowledgment  signal  is  received  within  a  specified  time 
interval) . 

Monitoring  various  signals  with  an  oscilloscope  led  to 
the  detection  of  an  inconsistency  between  the  monitored 
signals  and  the  specifications  on  the  HBfi-80  circuit  diagram 
provided  in  Reference  17.  Hhile  checking  the  comparators 
(utilized  to  determine  if  an  address  on  the  bus  is  that  of  a 
bubble  memory  controller  register),  it  was  determined  that  a 
signal  of  some  sort  was  present  on  pin  7  of  each  of  the 
three  comparators.  The  circuit  diagram  indicated  that  these 
pins  should  all  be  connected  to  the  common  board  ground. 
Open  contacting  the  designers  of  the  MBB-60,  it  was  learned 
that  the  circuit  diagram  currently  being  distributed  was  for 
Version  3  of  the  NBB-80.  The  correct  circuit  diagram,  for 

Version  0,  was  acquired  and  testing  resumed. 
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During  subsequent  calls  to  Pacific  Cyber/Hetrixs 
personnel  to  confirm  or  question  findings#  it  was  learned 
that  some  special-purpose  circuitry  was  connected  to  the 
comparators.  This  circuitry  had  been  included  for  a  special 
application  design  of  the  MBB-SO  and  was  incorporated  onto 
all  boards  currently  being  distributed.  He  were  given  the 
assurance  of  HBB-SO  design  personnel  that  this  circuitry  was 
in  no  way  affecting  the  operation  of  our  Bubbl-Board  and 
that  we  could  verify  this  by  "grounding"  pin  7  of  all  of  the 
comparators.  Temporary  "grounding  straps"  were  placed  on 
all  of  the  comparators  to  see  if  there  was  any  affect  on  the 
operation  of  the  NBB-80.  Subsequent  attempts  at  executing 
DIA680  were  all  successful.  Pacific  Cyber/Hetrixs  personnel 
were  informed  of  our  findings.  As  a  result#  the  designers 
of  the  HBB-80  are  currently  considering  the  inclusion  of  a 
manual  switch  on  future  HEE-80  boards  to  allow  the  user  to 
select  or  bypass  the  special-purpose  circuitry. 

With  DIAG80.ASH  executing  properly#  initial  testing  of 
the  HBB-80  was  continued.  Informatics  was  written  into  and 
read  from  pages  of  each  device  to  verify  that  the  bubble 
devices  were  error  free.  Additionally#  information  was 
written  into  the  devices  and  power  removed  from  the  HBB-80. 
The  HBB-80  was  left  for  a  24-hour  period  and  then  lata 
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retention  vas  verified  in  each  bubble  device  by  reading  back 
the  previously  stored  inforoation.  Operation  of  the  HBB-SO 
vas  satisfactory  and  the  lew-level  read,  write,  controller 
initialization  and  device  initialization  routines  had  been 
verified  to  function  correctly. 

With  initial  MBB-80  interfacing  and  testing  successfully 
coipleted  and  the  low-level  routines  verified,  advanced 
iapleeentation  and  testing  with  the  iSBC  86/12&  was  begun. 
The  low-level  routines  were  available  for  direct  translation 
into  Intel  8066  asseobly  language  and  the  DIAGSO.iSB  prograa 
available  as  a  aodel  for  future  progran  construction. 

B.  OSE  OF  THE  CP/H-80  HBB-80  OliGHOSlIC  PBOGBAH 

The  CP/H-80  diagnostic  prograa,  DIAGdO.ASH,  was  designed 
and  written  for  the  purpose  of  testing  tbe  hardware 
interface  between  the  M6B-80  and  the  INTELLEC  00  HOS  systea. 
This  prograa  provides  low-level  routines  which  allow  the 
user  to  verify  correct  write  and  read  operations  to  and  froa 
the  HBB-80.  Although  not  originally  intended  to  serve  as 
such,  DIAGdO  can  also  serve  as  a  low-level  debugging  tool  to 
aid  in  systeas  prograa  developaent. 

DIAG80  is  executed  by  executing  the  DIAG80.COH  file 
located  on  the  CP/H-80  systea  disk.  Execution  will  cause 
the  HBB-80  controller  and  all  eight  (8)  aagnetic  bubble 
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devices  to  be  initialized  in  accordance  vith  Beference  17. 
The  MBB-80  controller  base  (defined  in  DiaaSO  by  a  constant) 
Bust  be  set  to  04000H  utilizing  the  address  selection 
switches  on  the  HBB-SO.  The  progras  will  then,  at  the 
discretion  of  the  user,  cause  an  eighteen  (18)  byte  page  to 
be  either  written  into  or  read  froa  one  of  the  eight 
(8) eagnetic  bubble  devices. 

The  user  has  the  option  of  entering  an  "B"  for  a  read,  a 
"Q"  tc  quit  or  a  "W"  or  any  other  character  for  a  write.  If 
the  user-specif ied  operation  is  to  read  a  page,  the  user 
will  be  prompted  for  the  single-digit  bubble  device  nueber 
(0-7H)  and  the  three-digit  page  nueber  (000-280H)  of  the 
page  to  be  read.  The  contents  cf  the  specified  page  will  be 
printed  to  the  CRT  along  with  the  contents  of  the  status 
register.  If  the  specified  operation  is  to  write  an 
eighteen  (13)  byte  page,  the  user  will  be  proapted  for  the 
twc-digit  hexadecimal  value  to  be  written  in  addition  to  the 
bubble  device  and  page  nueber  of  the  destination.  The 
twc-digit  value  given  by  the  user  will  then  be  written  into 
all  eighteen  (18)  bytes  of  the  specified  page.  If  the  user 
types  a  "Q",  to  quit,  then  the  prograa  terminates  and  a 
return  is  made  to  the  Cf/d  operating  system.  No  error 
checks  are  made  to  verify  correct  entries  by  the  user.  If 
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inpat  values  are  outside  the  specified  ranges  the  progras 
will  not  function  reliably. 

C.  INTEL  8086  IHTBBFICE  CONSIDEBITIOMS 

The  actual  interface  and  iapleaentation  of  the  babble 
aeaory  systen  were  accoaplished  utilizing  CP/{i>86  and  the 
iSEC  86/1 2A  single-board  coaputer.  Several  local 
aodif ications  had  to  be  aade  to  the  standard  Intel  iSBC 
86/12A  distribution  board.  The  following  description  is 
provided  to  allow  the  verification  of  a  correct  board 
configuration  when  either  duplicating  this  thesis  work  or 
continuing  research  on  this  system. 

The  address  select  pins  for  the  iSBC  86/12A  were 
configured  to  place  the  coaputer* s  on-board  BAH  in  the 
lowest  64K  byte  segaent.  Iherefore,  address  select  switches 
one  (1)  and  eight  (8)  are  "on**;  all  others  are  "off".  The 
following  pairs  of  pins  were  connected  together  (juapered) 
to  provide  the  necessary  interface  to  the  locally  modified 
Intellec  DD  HDS  system:  3-4,  5-6,  68-76,  79-03,  87-89, 
92-93,  127-128  and  143-144.  The  above  iSBC  86/12A 
aodif ications  are  necessary  for  the  correct  operation  of  the 
iSEC  86/12A  within  the  Intellec  DD  HDS  systen  and  are  not 
necessitated  by  nBB-80  Bubbl-Bcard  reguirenents. 


The  Beaory  acquisition  circuitry  of  the  iSBC  86/1 2A  will 
reference  RAH  on  the  iSBC  86/12A  board  for  addresses  0-64K 
and  onboard  EFROH  for  addresses  OFPCOO-OFFPFF  (hezadecisal) . 
Any  oeoory  reference  outside  these  two  ranges  will  activate 
the  HOLTIBOS  acquisition  circuitry.  Consequently,  bus 
override  coneands,  or  inhibit  signals,  issued  over  the 
MQITIBBS  within  the  first  64K  byte  segsent  will  have  no 
affect  on  the  iSBC  86/12i's  BAH.  This  requires  that  the 
nBE'‘80's  controller  base  be  placed  at  an  address  outside  of 
the  first  64K  bytes.  Since  the  HBB^BO  cou  roller  utilizes 
■eicry-aapped  I/O  to  sixteen  (16)  consecutive  sesory 
locations,  any  16  addresses  that  can  be  inhibited,  will 
suffice.  It  was  decided  to  provide  the  user  with  the 
ability  to  specify  a  segsent  base  address  for  the  HBB-80 
controller  in  all  of  the  CP/H-86  diagnostic  (low-level 
interface)  prograss.  Since  the  HBB-80  can  decode  20  address 
lines,  the  controller's  base  address  space  can  be  placed 
anywhere  within  the  in  byte  address  space  that  isn't 
occupied  by  BAH  or  SFBOH  (which  cannot  be  inhibited) .  The 
address  specified  to  these  prograss  lust  correspond  to  the 
address  set  on  the  flBB-80  address  select  switch. 

In  addition  to  the  HBB-SO  ccntroller  neaory  address 
assignment,  the  interrupt  structure  also  has  an  affect  on 
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th€  iSBC  86/1 2A  configuration.  The  BBS-SO  has  tuo  aodes  of 
operation:  single>page  acde  and  aulti-page  acde.  The 
single**page  aode,  which  reguires  no  interrupts  and  was 
iapleaented  successfully  on  the  Intel  8080,  also  poses  no 
prcLia.eB  for  the  Intel  8086.  The  aulti-page  aode,  however, 
requires  that  specific  tiling  reguireaents  be  aet  by  the 
host  coaputer  in  ccaounicating  with  the  HBB-dO  controller. 
During  transfers  of  data,  the  host  aust  respond  to  the 
interrupts  generated  by  the  aBB-80  every  160  aicroseconds 
(signalling  a  coapleted  transfer  of  one  byte  in  a  aulti-byte 
transfer) .  These  interrupts  can  be  either  generated  over 
the  MOLTIBO*'  as  "hard"  interrupts  to  the  iSBC  86/12A  or  the 
iSEC  86/12A  can  "poll"  (read)  the  status  register  that  is 
within  the  address  space  of  the  HEB-60  controller.  A 
detailed  description  of  single-page  aode,  aulti-page  aode 
and  the  required  interrupts  is  given  in  Reference  17. 

It  was  decided  that  the  Intel  8086  iapleaent ation  would 
be  accoaplished  in  steps.  First,  a  siaple,  single-page  aode 
program  would  be  written  utilizing  the  algorithms  that  were 
tested  in  the  Intel  8080  implementation.  Since  the 
multi-page  mode  provides  approximately  four  (4)  times  the 
effective  transfer  rate  of  single-page  node  (45  Kbits/sec 
versus  11  Kbits/sec) ,  it  was  deeaed  essential  to  utilize  the 
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oulti'-page  lode  of  cpecaticn  in  the  final  operating  systea 
interface.  This  required  a  decision  on  the  aethod  of 
detecting  and  servicing  interrupts,  which  led  to  the 
development  of  a  aulti-page  node  prograa  that  could  operate 
in  the  "polling"  node  or  use  interrupts  generated  over  the 
NDIIIBOS.  To  handle  interrupts  over  the  MULTIBOS,  an 
additional  oodification  was  aade  to  the  iSBC  66/12A  board: 
pins  72  and  80  were  juapered  tc  allow  IB1  (interrupt  one)  on 
the  BDLTIBOS  to  be  processed  as  interrupt  type  16  within  the 
iSEC  86/1 2A  aicrccoaputer  via  the  on-board  i3259 
prcgraaaable  interrupt  ccntrcller  (PIC) .  It  was  also 
necessary  to  connect  the  IB1  interrupt  on  the  HBE-80  board 
itself,  as  described  on  page  2-3  cf  Reference  17,  which 
causes  llBB-80  generated  interrupts  to  be  sent  over  the 
BOITIBOS  on  IH1.  Along  with  the  modifications  to  the 
Intellec  DO  RDS  power  supply  and  to  the  llBB-80  board 
detailed  in  Section  A  cf  this  chapter,  all  hardware 
interface  requirements  have  now  been  described. 

D.  INTEL  8086  IHPLSHENTATIOB 

The  implementation  of  the  {lEB-80  Bubbl-Eoard  with  the 
Intel  8086  was  divided  into  two  phases,  with  each  phase 
having  specific  goals.  The  first  phase  was  the 

implementation  of  a  program  which  uses  the  single-page  mode 


of  operation  on  the  HBB'60,  where  the  basic  routines 
developed  in  the  8080  iopleoentat ion  would  be  utilized.  The 
goal  of  this  phase  was  to  verify  the  successful  operation  of 
the  NBB-80  with  the  iSBC  86/12A  hardware  using  the  CF/N-d6 
operating  system.  The  second  phase  involved  the 
implementation  of  a  program  which  uses  the  aulti~page  mode 
of  operation  utilizing  either  the  polling  mode  or  interrupts 
generated  over  the  HOLTIBOS.  The  goals  of  this  phase  were: 
(1)  verify  that  the  multi-page  mode  of  operation  works;  (2) 
determine  which  interrupt  method  is  most  desirable;  and,  (3) 
prepare  and  test  software  routines  that  can  be  utilized  in 
the  final  operating  system  interface. 

The  single-page  mode  program,  hereafter  referred  to  as 
DIAG86S,  was  designed  as  a  complete  Intel  8086  assembly 
language  diagnostic  program  for  the  HBB-80,  requiring  little 
operator  intervention  (as  opposed  to  DIAG80.ASa  —  the  8080 
version) .  The  program  will  continuously  test  every  byte  in 
each  magnetic  bubble  device,  recording  all  errors,  until 
execution  is  terminated  by  the  user.  Three  basic  functions 
were  to  be  tested:  (1)  initializing  the  MBB-80;  (2)  reading 
from  the  MBB-80;  and,  (3)  writing  to  the  MBB-80. 

The  algorithms  developed  in  DIAG80  for  initializing  the 
HBE-80  controller  and  for  reading  and  writing  a  physical 
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buttle  page  (18  bytes)  were  not  logically  altered.  A  direct 
translation  of  these  routines  was  nade  froa  8080  assembly 
language  to  8086  assembly  language. 

It  was  considered  desirable  to  utilize  the  Intel  8086 *s 
segmentation  features  to  allow  the  future  use  of  the  full  IB 
byte  address  space  available  in  the  processor. 
Conseguently ,  the  simple  ”6080  memory  model”  was  rejected  in 
favor  of  the  "compact  memory  model”  which  utilizes  multiple, 
user-controlled  segments  (see  Reference  21,  pages  7-9,  for  a 
complete  description  of  these  models).  Code  segments  (CS) 
and  data  segments  (DS)  are  used  only  for  code  and  data 
respectively,  while  the  extra  segment  (ES)  is  used  to 
address  the  HBB-80  controller  ports  at  a  user-defined  base 
address  (see  Reference  22  for  a  description  of  A5B86  and 
segments) . 

DIAG86S  was  written  and  tested.  During  debugging, 
routine  code  and  logic  errors  were  encountered  but  no 
problems  relevant  to  this  specific  implementation  were 
discovered.  Execution  of  this  program  on  the  iSEC  86/12A, 
under  the  CP/B-86  operating  system,  achieved  all  of  the 
stated  goals  for  this  phase  of  the  8086  implementation.  A 
complete  listing  of  DIAGd6S.Ad6  is  contained  in  Appendix  B. 
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The  oalti-page  sods  prcgrao,  hereafter  referred  to  as 
DIAG86N,  is  a  diagnostic  program  that  performs  the  same 
functional  diagnostic  tests  as  0IAG86S.  In  meeting  the 
stated  goals  of  this  phase  in  the  Intel  8086  implenentationr 
several  important  issues  were  addressed.  First,  the 
programming  of  suitable  interrupt  handling  mechanisms  to 
service  both  HOITIBOS  and  polled  interrupts  from  the  MBB^SO 
was  necessary.  Second,  a  method  for  evaluating  the 
desirability  of  these  methods  was  needed.  Finally,  the 
routines  that  performed  specific  bubble  memory  functions  had 
to  be  in  a  form  suitable  for  direct  application  in  the  next 
step  of  this  thesis,  the  implementation  of  the  interface  to 
the  CP/M-86  operating  system. 

The  two  methods  of  handling  interrupts  are  provided  by  a 
conditional  assembly  variable  in  CIAGdSH.  The  boolean 
status  of  this  variable  (documented  in  the  code)  determines 
whether  code  is  generated  for  a  NULTIBUS  interrupt  or  for 
the  polled  mode  of  operation.  For  the  MULTIBOS  interrupt 
(in  addition  to  the  above  mentioned  hardware  modifications) 
three  steps  are  required:  (1)  set  up  the  interrupt  vector 
in  CF/H>86  low  memory  to  handle  the  IB1  signal  from  the 
BOITIBOS;  (2)  program  a  trap  handler  at  this  interrupt 
vector:  and,  (3)  programming  the  i8259  PIC  to  recognize  and 
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properly  interpret  the  interrupt  coaing  in  over  IB1.  A 
sisple  semaphore,  set  by  the  trap  handler  and  interrogated 
by  the  bubble  routines,  is  utilized  to  signify  the 
occurrence  of  an  interrupt  from  the  HBB-80.  The  use  of  the 
polled  mode  merely  requires  the  interrogation  of  the 
interrupt  flag  register  at  port  offset  OFH  in  the  bubble 
meiory  controller. 

Both  the  interrupt  mode  and  the  polled  mode  were 
successfully  implemented.  Execution  times  for  complete 
diagnostic  runs  were  47  seconds  for  both  methods  (timed  with 
a  conventional  stopwatch) .  Due  to  the  extra  code  and 
hardware  modifications  required  for  vector  initialization, 
the  decision  was  made  to  utilize  the  polled  mode  in  the 
CP/H-06  operating  system  interface.  Although  this  approach 
limits  a  future  application  with  multiple  processes 
requiring  priority  interrupts,  this  approach  is  consistent 
with  the  polled  interrupt  structure  utilized  by  disk  systems 
that  are  generated  and  distributed  with  the  CP/H-86 
operating  system  by  Digital  Research.  It  should  be  noted 
that  the  code  and  hardware  modifications  for  the  use  of 
interrupt  vectors  included  in  this  chapter  are  completely 
functional  for  future  applications  that  require  a 
prioritized  interrupt  structure  using  the  llBB-80. 
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The  bubble  aeiory  initialization  zoucine  used  in  OIAGSdH 
is  in  the  saae  fora  as  that  used  in  DIAG86S.  However*  the 
read  and  write  routines  used  in  DIAG80  and  01AG86S  are  based 
on  using  a  physical*  aagnetic  bubble  aeaory*  page  nuaber  as 
an  addressable  unit  for  each  transfer.  Therefore*  the 
foundation  for  the  aeaory  organization  of  the  HBB-80  was 
developed  which  would  be  ccapatible  with  that  expected  by  a 
CP/li  disk  structure.  CIAG86H  views  the  transfer  as  that  of 
a  logical  CP/H  sector  of  128  bytes.  Since  a  physical  bubble 
page  is  18  bytes  and  128  is  not  an  even  multiple  of  18*  the 
last  sixteen  bytes  of  each  logical  bubble  "sector"  (144 
bytes)  will  be  ignored  (wasted) .  A  logical  CP/H  sector 
consists  of  8  bubble  pages  of  which  the  last  16  bytes  on  the 
last  page  of  a  bubble  "sector"  are  not  used.  There  are  640 
bubble  pages  per  device  (chip) *  so  there  are  80  logical  CP/H 
sectors  (as  well  as  80  bubble  "sectors")  on  each  bubble 
device.  The  access  of  data  on  the  Bubbl-Board  now  requires 
only  a  device  number  (0-7)  and  a  "sector"  nuaber  (1-80)  on 
that  device.  A  routine  to  convert  a  "sector"  nuaber  to  a 
starting  page  number  of  an  eight  page  "block"  was  written 
and  tested.  This  routine  takes  into  account  the  fact  that 
the  multi-page  mode  requires  a  "skew"  factor  of  322  on  each 
consecutive  bubble  page  access.  This  skew  factor  allows  the 
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rapid  access  of  pages  without  Baking  coaplete  shifts  of  the 
aaicr  loops  in  the  aagnetic  bubble  devices,  Hatheaatically, 
the  starting  page  nuafcer  is  coaputed  as  follows: 

SPN  3  (  (SN-1)  *  12  )  BOd  641 

where  SPM  =  star  ing  page  nuaber  (0-640) 

SN  =  HBB-80  "sector"  nuaber  (1-78) 

Bod  3  Bodulo  division  (reaainder) 

A  ccaplete  description  of  this  "skewing"  operation  and  the 

necessary  prograaaing  considerations  is  provided  on  page 

3-13  of  Reference  17, 

DIAG86H  was  written,  tested  and  debugged  in  both  the 
interrupt  node  and  the  polled  mode  of  operation.  Execution 
of  this  prograa  on  the  iSBC  86/12A,  under  the  CP/a-86 
operating  systea,  achieved  all  of  the  stated  goals  for  this 
phase  of  the  iapleaentation.  A  coaplete  prograa  listing  of 
0IAG86n.A36  is  found  in  Appendix  C, 

B,  OSB  OF  CP/H-86  BBB-80  CIAGNCSTIC  PIOGBAHS 

DIAG86S.A86  is  a  single-page  node,  8086  assembly 
language  diagnostic  prograa  for  the  NBB-80.  Its  purpose  was 
to  verify  the  correct  operation  of  the  MBB-80  under  CP/M-86 
but  it  can  be  used  as  a  functional  diagnostic  prograa. 
Since  it  operates  in  single-page  aode,  no  supporting 
interrupt  structure  is  necessary  for  execution  of  this 
prcgraa. 
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This  diagnostic  is  invoked  by  executing  the  CIAG86S.CI10 
file  on  the  CP/N-Sd  systee  disk.  The  progras  will  print 
appropriate  aessages  and  then  request  that  the  user  key  in  a 
four  (4)  digit,  segeent  base  address  for  the  HBB-80 
controller.  Only  four  digits  can  be  keyed  in,  followed  by  a 
carriage  return.  Keying  in  eore  than  or  less  than  four 
digits,  or  invalid  hex  digits  (viz.,  not  in  the  range  0-F) , 
will  cause  the  printing  of  an  error  nessage  and  the  user 
will  then  be  asked  to  re-enter  the  segnent  base  address. 
This  segaent  base  address  consists  of  the  high  order  16  bits 
of  the  20-bit  address  that  is  physically  set  on  the  llBB-80*s 
address  select  pins.  The  address  keyed  in  aust  aatch  the 
NBE-80*s  address  and  the  HBB-80  aust  be  plugged  into  the 
INTELLBC  DO  MOS  systea  with  the  power-protect  switch 
enabled.  Selection  of  a  base  address  aust  follow  the 
constraints  as  specified  in  Section  C  of  this  chapter.  If 
these  procedures  are  not  followed,  the  prograa  will  not 
execute  reliably  (the  prograa  has  no  way  of  knowing  where 
the  HBB-80  ccntroller  has  been  physically  placed  in  the 
address  space  or  if  it  is  correctly  powered  up) . 

The  prograa  will  then  begin  the  testing  of  every  byte  on 
the  HEB-80  board.  Each  device  will  be  tested,  in  turn,  by 
writing  and  then  reading  back  a  randoa  pattern  (byte)  one 


page  at  a  time.  As  each  device  is  finished,  a  message  so 
indicating  will  be  printed.  Once  all  devices  on  the  board 
have  been  tested,  a  summary  of  errors  (if  any)  for  that  pass 
will  be  listed  and  testing  will  automatically  continue. 
When  the  user  wishes  to  discontinue  testing,  the  keying  in 
of  any  character  followed  by  a  carriage  return  will 
terminate  testing  at  the  completion  of  the  current  pass. 
Any  errors  encountered  will  be  listed,  indicating  the  bubble 
device  number  (0>7  hex) ,  the  bubble  page  number  (000-280 
hex),  the  byte  number  within  the  page  (0-11  hex),  the 
pattern  written  and  the  pattern  read  back  (in  error) .  The 
occurrence  of  an  error  does  not  halt  testing.  Testing  is 
continuous  until  the  user  halts  execution  by  console  input. 
When  the  program  is  halted,  control  automatically  returns  to 
the  CE/M-86  operating  system. 

DIAG86tl.A86  is  a  multi-page  mode,  8086  assembly 
language,  diagnostic  program  for  the  HBB-80.  Its  purpose  is 
to  provide  a  production  version  of  a  diagnostic  program 
which  runs  under  CE/tl-86  and  which  can  also  be  used  to 
verify  the  correct  operation  of  an  aBB-80  Bufcbl-Board. 
DIA686N  is  functionally  eguivalent  to  0IAG66S.A86,  except 
that  OIAG80  runs  in  multi-page  node  and  thus,  executes 
approximately  four  times  faster  than  0IAG86S. 


This  diagnostic  is  invoiced  by  executing  the  DIh686ll.CllD 
file  on  the  CP/N'36  systes  disk.  This  prograa  presents  the 
saae  sessages  as  DIAG86S  and  ail  instructions  relevant  to 
0I1686S  apply  to  0I&G868. 

There  are,  however,  sose  special  notes  regarding  the 
execution  of  DIAG86H.  As  explained  in  Section  0  of  this 
chapter,  there  are  two  possible  versions  of  this  progras, 
differentiated  by  a  conditional  assembly  switch.  One 
version  uses  interrupts  generated  over  the  HOLTIEOS,  while 
the  other  uses  the  polled  scde  which  interrogates  the  status 
of  the  MBB-80  controller.  The  "sign  on"  aessage  will 
indicate  which  version  is  running.  Since  the  polled  mode  of 
operation  is  used  in  the  final  CP/(l-86  interface,  this 
version  is  found  on  the  system  disk.  The  MOLTIBOS  vectored 
interrupt  version  requires  that  the  hardware  modifications 
to  the  MBB-80  board’s  interrupt  pins  and  the  iSEC  86/12A's 
interrupt  pins  be  made  (as  described  in  Section  C  of  this 
chapter)  before  program  execution  begins. 

0IAG86H.CI]D  is  the  primary  tool  for  performing 
diagnostic  testing  of  J1BB~80  Bubbl-Soards.  It  also  provides 
a  method  of  performing  acceptance  tests  of  newly  purchased 
HBE'SO  Bubbl-Boards.  The  user-specified  base  address  for 
the  controller  allows  the  tasting  of  any  MBB-80  that  is 
currently  plugged  into  the  ISTELL2C  CO  MDS  system. 


71.  CP/fl-86  IMIEHPACB  IflPlBaBMTATlO 
A.  BOBBLE  DEVICE  STOBAGE  OBGABIZATIOI 

The  CP/N-86  interface  design  consists  of  two  parts:  (1) 
the  iiplementation  of  the  EBB-SO  such  that  it  will  be 
functionally  equivalent  to  a  floppy  disJc  generated  for  the 
CF/M-86  operating  systea;  and,  (2)  the  generation  cf  a  basic 
input/output  system  (BIOS)  for  the  CF/M-e6  operating  systea 
to  include  any  coabinaticn  cf  disks  and  EBB-80  Bubfcl-Boards. 
This  section  will  describe  how  the  EBB-80  Eubbl-Board 
logical  interface  is  made  to  appear  as  a  "standard"  disk  to 
the  CP/E-86  operating  system. 

CP/E-86,  as  does  any  CF/E  systea,  uses  two  paraaeters 
when  conaunicating  with  disk  devices:  tracks  and  sectors. 
The  EBB-80  uses  two  different  paraaeters:  pages  and  devices. 
The  translation  of  the  18  byte,  physical,  bubble  page  to 
that  cf  a  128  byte  CF/E  sector  was  described  in  Section  D  of 
Chapter  V.  This  organization  configured  the  EBB-80  as 
consisting  of  eight  devices  (0-7) ,  each  with  80  "sectors" 
(1-80)  of  126  bytes/sector .  The  reaaining  problea  is  that 
of  mapping  a  CP/M  track  and  sector  tc  a  corresponding  EBB-80 
device  number  and  an  MBB-8Q  "sector"  number. 
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The  BIOS  in  CP/H-SB  has  pcovisions  for  declaring  the 
nuafcer  of  sectors  per  track  on  a  given  disk,  as  well  as  the 
total  capacity  of  that  disk  (which  isplicitly  iaplies  the 
nuaber  of  tracks)  .  It  was  decided  that  each  (1BB~80  "track" 
would  consist  of  26  sectors,  which  is  equivalent  to  the 
nuiter  of  sectors  pet  track  of  a  CP/M-foraatted 
single-density  disk.  This  guaranteed  coapatible,  if  not 
optiaal,  use  of  the  built-in  CP/a  blocking  routines  which 
are  designed  for  tracks  that  have  26  sectors  (or  aultiples 
thereof)  . 

Addressing  each  of  the  eight  devices  on  the  aBB-80 
Bubbl-Board  requires  additional  software  in  that  each 
individual  device  must  be  separately  addressed  when 
accessed.  Therefore,  any  logical  storage  organization  that 
caused  the  overlapping  of  logical  storage  units  from  one 
physical  device  to  the  next  would  have  required  additional 
software  and,  thus,  incur  a  performance  degradation. 
Consequently,  it  was  decided  that  any  given  aBB-80  "track" 
would  be  entirely  contained  on  one  device.  Since  there  are 
26  CP/a-66  sectors  per  track  on  a  single-density  disk  and  30 
"sectors"  on  an  MBB-80  device,  there  are  3  "tracks"  per 
device  with  2  "sectors"  not  used  (wasted)  on  each  device. 


Since  there  are  8  devices  on  an  a£B-80  board. 


the  total 


capacity  o£  the  HBB*60  used  would  be  78K  bytes  on  24 
"tracks”  with  a  total  of  14K  bytes  not  used  (wasted).  This 
final  storage  organization  is  shown  in  Figure  6.1. 

k  aethod  for  napping  to  this  logical  organization  fron  a 
CP/B-86  sector  call  cr  track  call  was  needed.  The  track 
napping  was  the  siaplest.  Hathenatically ,  the  device  nunber 
is  conputed  as  follows: 

DN  =  TS  div  3 

where  DH  =  BBB-80  device  nunber  (0-7) 

TN  3  cP/H-86  track  nunber  reguested 

div  3  integer  division  (disregard  renainder) 

For  reasons  of  efficiency,  this  translation  was  inplenented 

with  tables  rather  than  with  arithnetic  conputations  at  the 

assembly  language  level. 

The  sector  napping,  however,  presents  a  acre  coaplez 
prcblen.  As  can  be  seen  in  Figure  6.1,  bubble  "sector” 
nuabers  range  fron  1-80  contiguously,  across  three  "tracks”, 
on  each  HBB-80  device.  CP/(]-86  uses  a  range  c£  sector 
nunbers  between  1  and  26  on  each  track  for  a  single-density 
disk.  Given  a  requested  CP/ll-36  sector  and  track  nunber, 
the  corresponding  MBB-30  "sector"  nunber  is  conputed. 
Mathenatically,  the  "sector”  nunber  is  computed  as  follows: 

SN  3  (26  *  (TM  nod  3)  )  ♦  SEC 

where  SB  »  MBB-80  "sector”  number  (1-78) 

TN  3  cP/Cl-86  track  number  requested 
nod  3  lodulo  division  (renainder) 

SEC  3  CP/H-86  sector  nunber  requested 
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Devicel  Device 


Figure  6.1  Logical  Storage  Organization 


Again,  for  reasons  of  efficiency,  this  translation  vas 
inpleaented  via  tables  rather  than  coaputed  with  the 
asseebly  language.  The  tera  "(26  *  (IN  aod  3))"  is  derived 
in  the  table  lookup  at  the  saae  time  that  the  CP/M-86  track 
is  being  translated  to  a  bubble  device  nuaber. 

Given  an  MBB-80  "sector"  nuaber  (1-78) ,  the  physical, 
starting  bubble  page  nuaber  can  be  coaputed  (this  routine 
was  developed  during  and  is  explained  in  the  Section  D  of 
Chapter  V) .  For  convenience,  the  formula  for  coaputing  the 
physical,  starting  page  nuaber  is  repeated  here: 

SPN  =  (  (SN-1)  *  12  )  aod  641 

where  SPB  =  starting  page  number  (0-640) 

SN  *  BBB-80  "sector"  nuaber  (1-78) 
aod  =  modulo  division  (reaainder) 

The  coaputation  of  the  physical,  starting  page  nuaber  was 

iapleaented  with  arithmetic  statements  and  repetitive 

structures  in  the  assembly  language. 

B.  CP/H-86  BIOS  COHSIDEBATIOHS 

1.  Structured  Standards  for  the  BIOS 

The  CP/M-86  operating  system,  as  written  by  Digital 

Research,  contains  three  parts:  the  Console  Command 

Prccessor  (CCP)  ,  the  Basic  Disk  Operating  System  (BOOS)  and 

the  user-configurable  Basic  I/O  System  (BIOS) .  The  CCP  and 

BDCS  portions  of  CP/H-86  occupy  approximately  10K  bytes  and 

are  distributed  as  a  single  hexadeciaal  code  file  (CPH.H86). 
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Th€  CCP  and  BOOS  coaaunicate  vith  physical  devices  via  a 
well-defined  interface  in  the  BIOS.  This  interface  is  a  set 
of  call  and  return  paraaeter  conventions  for  the  specific 
functions  used  when  the  CCP  and  BOOS  cosounicate  with  the 
BIOS.  The  BIOS  contains  all  device-dependent  code.  A 
coaplete  specification  cf  the  functional  operation  of  the 
CCP  and  BOOS,  along  with  the  description  of  the  Bios 
interface,  is  contained  in  the  CP/H-86  systea  Reference 
Guide  (Reference  21).  This  section  will  describe  the 
approach  used  in  structuring  a  custoaized  BIOS  which 
provides  an  interface  to  both  conventional  CP/M-86 
peripherals  and  the  MBB-80  aagnetic  bubble  device. 

CP/ii-86,  as  distributed  by  Digiral  Research,  contains  a 
saaple,  skeletal  BIOS  which  can  be  utilized  by  a  user  to 
configure  a  custoaized  BIOS.  This  skeletal  BIOS  is  written 
in  8086  asseably  language.  A  priaary  goal  of  this 
iipleaentation  is  to  provide  a  BIOS  that  can  be  easily 
Bodified  and  aaintained.  It  was  therefore  considered 
essential  to  develop  a  BIOS  that  consisted  of  structured, 
logically  functional  subroutines,  within  the  constraints  of 
the  CP/B-86  physical  coaponent  interface  reguireaents.  It 
was  also  considered  necessary  to  provide  adequate 
dccuaentation  within  the  prograa  code.  All  subroutine  input 


30 


and  output  paraaeters  aust  be  clearly  defined.  All  modules 
that  call  a  subroutine  are  listed  in  that  called 
sukrourine's  docuaentation  (in  the  code).  The  use  of 
external  branches  out  of  a  subroutine  is  not  allowed  and  all 
sufcroutines  terminate  with  a  single  "return”  (viz.,  no 
subroutine  is  allowed  to  "fall  through"  to  another  section 
of  cods  during  execution) .  Naming  conventions  for 
constants,  variables,  labels  and  subroutines  are  consistent 
and  meaningful  and  all  identifiers  are  located  in 
alphabetical  order  in  logically-related  sections  for  ease  of 
location. 

Although  the  above  rules  aay  result  in  soae 
less-than-optimal  execution  structures  from  the  viewpoint  of 
speed,  maintainability  and  ease  of  modification  are 
essential  goals.  The  primary  purpose  of  this  implementation 
of  a  BIOS,  to  provide  a  useable  magnetic  babble  system,  can 
only  be  fully  realized  in  a  system  that  will  allow  for  the 
custom  modification  of  the  iapleaented  hardware  and  the 
supporting  software. 

2.  Structured  Approach  to  the  BIOS 

The  CCP  and  BDOS  portions  of  CP/a-86  are  designed  to 
interact  with  disks .  Typically,  an  iapleaentation  of  a 
specific  disk  unit,  with  a  microcomputer  running  under 


CE/M-86,  involves  only  cne  kind  of  physical  disk  unit. 
This,  of  course,  results  in  the  simplest  BIOS.  However,  the 
CCE  and  BOOS,  in  interacting  with  the  BIOS  via  a  standard 
interface,  have  a  logical  structure  which  will  allow  alaost 
any  coobination  of  physical  devices  to  be  inpleaented  in  the 
BIOS.  The  only  reguirenent  is  that  the  BIOS  preserve  the 
standard  interface  to  the  rest  of  CP/M-86.  It  is  this 
structural  characteristic  of  the  CP/M-86  operating  systee 
that  was  found  to  be  very  useful  in  this  iaplenentation. 

The  interface  between  the  portions  of  CP/M-06  that  are 
relevant  to  this  iapleaentaticn  concern  the  "logical  disk" 
interface.  The  CCP  and  BOOS  are  "aware"  of  up  to  16  logical 
disks,  which  CP/M-66  will  address  via  the  paraaeters  disk 
nuaber,  track  and  sector.  It  is  this  interface  which  aust 
be  preserved  by  any  CP/M-d6  BIOS  iaplenentation. 
Additionally,  this  BIOS  aust  support  the  conbinav ’  'n  of 
standard  floppy  disk  devices  and  MBB-SO  Buttl- Boards. 
Conseguently ,  a  structured  approach  is  used  within  the  BIOS 
itself  for  this  iaplenentation. 

The  BIOS  is  logically  divided  into  four  different  areas: 
(1)  standard  CP/M-86  interface  juap  vectors;  (2)  subroutines 
wiich  suppo-t  conaunication  with  specific  devices;  (3) 
which  iefine  the  physical  characteristics  and 
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configuration  of  the  "disks":  and,  (4)  subroutines  which 
operate  (without  modif icaticn)  on  those  tables  (even  though 
the  tables  aay  be  changed) . 

This  approach  provides  a  table^driven  BIOS.  A  BIOS  of 
this  structure  can  be  easily  altered  and  allows  for  ease  of 
configuration  aodif ication.  Subroutines  that  provide 
specific  device  coasunicat ions  (viz.,  initialization,  read  a 
sector  or  write  a  sector)  aust  be  written  for  each  type  of 
device  supported  in  the  BIOS  (a  type  is  a  specific 
dcuble^density  disk,  hard  disk,  llBB-80,  etc.).  Tables  are 
coded  which  describe  the  physical  specifications  of  each 
logical  CP/M-86  disk  (viz.,  nuater  of  sectors,  directories, 
capacity,  etc.).  Tables  are  also  coded  to  provide  the 
necessary  inforaaticn  to  support  the  aapping  of  logical 
CF/n-86  disk  nuabers  to  the  required  physical  paraaeters  for 
a  particular  type  of  device  (viz.,  oase  addresses  and 
internal  disk  nuabers) .  These  tables  are  fully  described  in 
Section  D  of  this  chapter. 

Finally,  the  inclusicn  of  all  configuration-dependent 
infcraation  in  the  tables  allows  for  ease  of  aodificaticn. 
Provided  that  no  new  device  tvces  are  generated  (which  would 
require  device-specific  routines) ,  the  configuration  (nuaber 
and  types  of  disks)  can  be  changed  entirely  within  the 
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tables  without  aodifying  the  BIOS  code  itself.  These  tables 
are  "included"  into  the  BIOS  code  during  assecbly.  k 
coiplete  description  of  the  BIOS  generation  will  also  be 
given  in  Section  D  of  this  chapter.  All  code  in  the  BIOS 
which  requires  device-dependent  inforaation  to  perfora  its 
task  will  be  designed  to  operate  directly  on  the  tables. 
This  provides  for  a  very  aodular  iapleaentation. 

3.  JUBP  factor  Interfaces 

Entry  to  the  BIOS  frpa  the  CCE  and  BDOS  is  through  a 
juap  vector.  The  juap  vector  is  a  sequence  of  21  three-byte 
juap  instructions  which  transfer  prograa  control  to  the 
individual  BIOS  entry  points  (subroutines) .  Juap  vector 
eleaents  are  in  a  standard  order  required  by  CP/a-86.  Sa^h 
BIOS  entry  point  corresponds  to  a  specific  function,  or 
task,  to  be  perforaed  by  the  BIOS  for  the  CCP  and  BDOS. 
Each  function  has  specific  interface  paraaeters  (passed  in 
designated  registers)  which  aust  be  adhered  to  in  any  BIOS 
iapleaentation.  All  of  these  juap  vectors,  the  BIOS  entry 
points  and  their  associated  paraaeters  are  given  on  pages 
56-64  of  Reference  21. 

Sany  of  the  functions  in  the  BIOS  need  not  be 
iapleaented  and  are  siaply  coded  as  a  "return"  (i.e.,  the 
LISTOUT  juap  vector) .  Other  functions  deal  with  table  "look 
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ups"  vithin  the  BIOS  on  behalf  of  the  CCP  and  BOGS.  This 
section  will  be  concerned  with  the  juap  vectors  that  require 
"knowledge"  of  specific  physical  disk  devices.  A  coaplete 
description  of  the  CP/B-86  juap  vectors  is  found  on  pages 
59-61  of  Reference  21. 

The  "INIT"  jump  vector's  function  is  to  perfors  all 
initialization  necessary  for  CP/M-86  that  was  not 
accoaplished  in  the  BOOT  ECB  cr  LCAOEB  procedures.  The 
"INIT"  juap  vector  lust  be  aodified  to  perforn  all  device 
initialization  necessary.  In  this  iapleaentaticn,  device 
initialization  consists  cf  calling  a  subroutine  that 
petforas  initialization  for  all  of  the  BBB-BO  Bufcbl-Boards 
that  are  logically  and  physically  part  of  the  systes. 
Additionally,  the  default  CBA  address  (20-bit,  aegaent  and 
offset)  lust  be  converted  and  stored  as  a  16- bit  address  for 
all  devices  that  require  a  16-bit  address  (viz.,  the  iSBC 
202  disk  controller) . 

The  junp  vector  called  "SELCSK"  has  the  function  of 
selecting  a  disk  for  the  next  read  or  write.  The  BDOS  call 
paraaeter  is  a  logical  disk  nuiber  and  the  return  paraaeter 
is  the  disk  paraaeter  header  (OPH)  fcr  that  device.  The  DPH 
is  a  standard  table  within  CP/H-86  (BIOS)  which  describes 
the  physical  attributes  of  each  disk  and  will  be  described 
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in  Section  D  of  this  chapter.  These  basic  functions  vere 
net  altered.  Additionally,  however,  upon  selection  of  a 
CF/H-86  logical  disk  nuaber,  it  is  necessary  to  perforn 
certain  tasks.  Given  the  logical  disk  nuaber,  a  table  is 
used  to  determine  the  tvee  cf  device  to  which  this  disk 
nuaber  corresponds.  If  the  device  is  a  floppy  disk,  a 
mapping  must  be  made  to  the  physical  disk  nuaber  within  the 
floppy  disk  controller  (0-3  on  the  iSBC  202  double-density 
disk  controller  used  in  this  iapleaentation) .  If  the  device 
is  an  MBB-80,  the  base  address  for  the  aeaory-aapped  I/O 
ccntrcller  aust  be  obtained.  '’SELOSK"  aust  be  aodified  to 
perfera  these  functions  by  subroutine  calls  and  to  store 
this  inforaaticn  for  later  use. 

The  juap  vector  called  "HOHE**  has  the  function  c£  aoving 
a  disk  read  head  to  its  hcae  pcsiticn  (track  0) .  There  is 
hcae  position  for  the  BEE-dO  Bubbl-Board.  Consequently, 
■’HCSE"  lust  check  the  device  type  and  if  it  is  an  aBB-80, 
the  hcae  request  is  translated  into  a  request  to  set  the 
track  to  zero  (as  required  by  CF/a-86). 

The  juap  vector  called  "SETTBK"  has  the  function  of 
setting  the  track  for  the  next  read  or  write.  The  track 
nuiber  is  passed  in  as  a  paraaeter.  CP/H-86  supports  track 
nuabers  in  the  range  0-65536.  This  allows  the  sapping  of  a 
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wide  range  o£  CP/!1>66  track  nanbers  directly  to  physical 
track  naabers  within  disk  controllers  (viz.,  ^ 
translation)  .  However,  the  llSB-80  storage  organization 
requires  the  napping  of  CE/B*86  track  nuabers  to  an  IlBB-80 
device  nunber  and  to  a  "sector"  offset  within  that  device. 
"5STTBK"  aust  be  aodified  to  perfora  this  function  (by 
subroutine  call)  and  to  store  this  derived  inforaation  for 
later  use. 

The  "READ"  and  "WRITE"  juap  vectors  have  the  function  of 
perforaing  a  sector  read  (cr  write)  to  (froa)  the  specified 
disk  cuaber  at  the  specified  track  and  sector.  Noraally, 
these  vectors  perfora  the  actual  operation  directly  by 
passing  a  channel  coanand  word  to  the  disk  ccntrcller  for  a 
single  device.  However,  the  BBE-80  requires  entirely 
different  routines  tc  perfcrn  a  read  or  write  operation. 
Therefore,  "BEAD"  and  "HBITE"  aust  deteraine  what  type  of 
device  is  currently  being  utilized  and  then  call  appropriate 
subroutines  to  perfora  REB-8C  reads  and  writes.  The 
routines  that  actually  perfora  the  non-standard  device 
(viz.,  BBB-80)  read  and  write  operations  aust  also  perfora 
all  necessary  low-level  aappings.  In  this  iapleaentation, 
the  HBB-80  read  and  write  subroutines  viill  call  on  a  sector 
translation  subroutine  that  will  aap  CP/B-d6  sector  nuabers 
tc  HEE-30  "sector"  nuabers. 
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It  should  be  noted  that  all  deTice>specific  details  have 
been  excluded  froa  the  juap  vectors  and  coded  within  the 
device-specific  subroutines.  Juap  vectors  serely  detersine 
what  type  of  device  is  being  used  (via  tables)  and  then  call 
appropriate  subroutines.  Although  this  BIOS  iaplesentation 
is  specifically  for  the  iSBC  202  disk  controller  and  the 
MBE-80  Bubbl-Board  (as  the  two  types  of  logical  disks) ,  it 
can  be  easily  aodified  to  include  any  other  type  of  disk 
device  or  aagnetic  bubble  systes  as  well.  Operations  that 
are  dependent  on  a  specific  device  type  are  isolated  in 
specific  subroutines.  As  described  above*  aaintainability 
and  ease  of  configuration  sodification  have  been  designed 
intc  the  structure  of  this  BIOS  iaplesentation  for  CP/tl-86. 
C.  OSB  OF  THB  CP/H-86  BB8-80  PCBBAT  PiOGBAB 

ME80FHT.A86  is  a  sulti-page  node*  8086  asseably  language 
prcgraa  which  foraats  the  BBB-80  Bubbl-Board  to  aeet  IBH 
coapatibility  standards.  Ibis  foraat  is  the  required  foraat 
fct  "new*'  CP/B-86  disks  and  consists  of  the  hex  pattern  "ES" 
in  every  data  byta  of  the  disk.  The  prcgraa  uses  the 
aulti-page  polled  aode  to  write  the  pattern  to  the  BBB-80. 

This  foraat  prograa  is  invoked  by  executing  the 
BBSOFBT.CMO  file  on  the  CP/fl-86  systea  disk.  The  prograa 
will  print  appropriate  aessages  and  then  request  that  the 
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as«r  key  in  a  four*digit,  sagaent  base  address  for  the 
HBE-80  controller.  Only  four  digits  should  be  keyed  in« 
followed  by  a  carriage  return.  Keying  in  acre  or  less  than 
four  digits,  or  invalid  hex  digits  (viz.,  not  in  the  range 
0-F) ,  will  cause  the  printing  of  an  error  aessage  and  the 
user  will  then  be  asked  to  re-enter  the  segaent  base 
address.  This  segaent  base  address  consists  of  the  high 
order  16  bits  of  the  20-bit  address  that  is  physically  set 
on  the  HBB-SO's  address  select  pins.  The  address  keyed  in 
aust  aatch  the  21BB-80  controller's  segaent  base  address  and 
the  NBB-80  aust  be  plugged  into  the  ZNTELLEC  DO  HDS  systea 
with  the  power-protect  switch  enabled.  Selection  of  a  base 
address  aust  follow  the  constraints  as  specified  in  Section 
C  cf  Chapter  V.  If  these  procedures  are  not  followed,  the 
prcqraa  will  not  execute  reliably  (the  prograa  has  no  way  of 
knowing  where  the  BBB-80  controller  has  been  physically 
placed  in  the  aeaory  address  space  or  if  it  is  correctly 
powered  up) . 

The  prograa  will  then  begin  writing  the  hex  pattern  to 
every  byte  on  the  SBB-80  board.  So  further  operator  action 
is  required.  Each  device  (0-7)  will  be  written  to  and,  as 
each  device  is  foraatted,  a  nessage  so  indicating  will  be 
printed.  Upon  prograa  coapletion,  the  "foraatting  coaplete" 
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aessage  will  be  printed  and  control  will  return  to  the 
CP/M-86  operating  systea. 

Since  the  polled  mode  is  used  to  iapleaent  the 
Bulti-page  mode  of  operation,  there  are  no  special 
considerations  for  running  this  program.  The  user-specified 
base  address  for  the  controller  allows  the  formatting  of  any 
MBE-80  Bubbl-Board  that  is  currently  plugged  into  the 
INTELISC  DO  hDS  system.  MBSOFnT.CED  provides  the  only  means 
of  preparing  an  MBB-80  Subbl-Boatd  for  use  as  a  "dish" 
within  the  CP/M-86  operating  systea. 

D.  CP/H-86  BIOS  IBPLEBEBTITIOH 

1.  aodification  of  the  Existing  BIOS 

The  host  CP/M-86  systea,  as  described  in  fieference 
18,  contains  a  custcaized  BIOS  supporting  a  single  iSBC  202 
disk  controller.  This  host  BIOS  is  used  to  generate  the 
LCADEB  BIOS  as  iapleaented  in  both  the  host  system's  BOOT 
608  and  LOkDSB  program.  The  best  BOOT  BOB  requires  that  a 
physical  iSBC  202  disk  be  present  in  drive  nuaber  0  for  boot 
loading  (tracks  0  and  1).  However,  nc  restrictions  exist  as 
to  the  actual  disk  configuration  that  can  be  initialized  and 
run  by  CPM.STS  (in  its  BIOS),  which  is  read  into  BAH  by  the 
Leader  program. 
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The  basic  routines  for  console  input  and  output 
contained  in  the  BIOS  of  Eeference  18  vere  considered 


acceptable  for  use  in  this  iopleientation.  ill  other  juap 
vectors  either  required  aodif ications  as  described  in  the 
preceding  section  or  were  not  considered  to  be  consistent 
with  the  structured  standards  of  this  impleaentation. 
Consequently,  all  of  the  juep  vectors  were  re-coded. 

The  device-dependent  routines  supporting  the  iSBC  202, 
found  in  Reference  18,  were  also  inconpatible  with  the 
structured  standards  and  goals  of  this  impleaentation. 
There  was  auch  redundancy  and  inefficiency  in  the  algorithms 
and  in  the  implementation  as  reflected  in  the  code.  In 
addition,  the  indexing  method  for  mapping  error  codes  to 
error  aessages  for  the  iSEC  202  was  found  to  be  incorrect. 
Therefore,  all  routines  relating  to  the  iSBC  202  were 
re-written  to  perform  correctly  and  to  coincide  with  the 
standards  and  structured  approach  of  this  impleaentat.' '•n. 
Obviously,  the  single  iSBC  202  controller  impleaentation  of 
Reference  18  was  limited  to  a  single  dish  device.  The 
impleaentation  presented  here  is  based  on  a  table-driven 
BIOS  that  directly  supports  up  to  sixteen  (the  CP/H-86 
aaxiaua)  disk  drives  which  can  be  of  two  different  types  of 
devices.  This  necessitated  the  development  of  an  entirely 


new  BIOS  structure  which  reseables  the  BIOS  c£  Reference  18 
and  the  CP/S-86  distribution  BIOS  only  in  its  preservation 
of  the  required  juep  vector  interface  standards. 

2.  Disk  Paraeeter  Table 

The  tables  which  deternine  the  physical  disk  device 
characteristics  of  this  CP/ll-06  BIOS  iaplenentation  are 
ccrtained  in  two  separate  files.  One  file  contains  the 
specific  device  characteristics  of  each  device,  while  the 
other  file  determines  the  currently  generated  configuration 
of  disk  devices. 

The  family  of  standard  CP/H  operating  systems  is 
designed  to  accept  a  tatle-driven  specification  for  the 
physical  characteristics  of  each  logical  CP/H  disk  device. 
These  tables  are  called  '*disk  definition  tables"  and  consist 
of  a  disk  parameter  table  for  each  disk  generated  as  well  as 
the  scratchpad  work  areas  for  the  operating  system.  The 
user  is  able  to  specify  the  number  of  logical  disks  to  be 
generated  (0>16),  along  with  the  characteristics  of  each 
disk  (each  having  a  separate  entry)  .  These  characteristics 
include:  the  logical  disk  number,  first  and  last  sector 
number  on  each  track,  optional  skew  factor,  blocksize,  disk 
capacity,  the  number  of  directory  entries,  checked  entries 
and  the  number  of  tracks  to  reserve  for  the  operating 
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system.  These  parameters  are  specified  in  a  file. 
Normally,  the  same  type  of  device  has  the  same  parameters  in 
every  occurrence  of  that  device  type  in  the  file.  The  only 
parameter  that  changes  for  devices  of  the  same  type  is  the 
logical  disk  number. 

This  file,  containing  the  disk  parameters,  is  used  as 
input  to  a  CF/H-06  utility  program  called  GENDEF.  This 
utility  takes  as  input  a  file  called  filename. DEF  and 
produces  an  8086  assembly  language  source  code  file  called 
filename. LIB.  This  output  file  contains  the  generated 
buffers,  tables  and  scratch  work  areas  needed  by  CP/(1'86  to 
communicate  with  each  disk  device.  A  complete  description 
of  this  disk  parameter  table  generation  and  specification 
procedure  is  included  on  pages  65-73  of  Beference  21. 

The  file  generated  by  the  GENOEF  program  is  used  in  an 
ASB86  "include"  statement  (viz. ,  inserted  into  the  BIOS 
code)  to  be  assembled  within  the  BIOS.  The  disk  parameter 
definitions  (to  be  input  to  GENDEF)  used  for  this 
implementation  are  included  in  the  file  OKFBK.CEF.  This 
definition  allows  for  three  "disks":  two  iSBC  202  floppy 
disks  and  one  MBB-80  "disk."  If  mere  or  less  disks  are 
required,  this  disk  parameter  table  must  be  changed  and  a 
new  BIOS  generated  as  described  in  a  following  section. 


The  disic  definition  paraoeters  used  in  the  BIOS  of 
Reference  18  for  the  iSBC  202  controller  were  used  in  this 
i apleaentation.  The  disk  definition  paraaeters  used  in  this 
i aplenentation  for  the  MBB-dO  were  derived  froo  the  aagnetic 
bubble  storage  organization  scheae.  First  and  last  sector 
nuaters  were  defined  as  1  and  26,  respectively.  No  skew 
translation  was  specified  in  that  the  BIOS  JlBB-80 
sector/track  translation  routines  provide  for  this  function. 
k  blocksize  of  1024  was  defined  so  as  to  reseable  a 
single-density  disk.  The  capacity  is  71K  bytes  as 
deterained  by  the  physical  storage  scheae  and  accounting  for 
reserved  operating  systea  tracks.  Space  was  reserved  for  32 
directory  entries,  which  allocates  the  ainiaua  space 
possible  for  the  SBB-80  directory.  A  checked  entry  of  zero 
(0)  is  absolutely  necessary  to  indicate  that  the  HEB-80  is  a 
non-reaovable  aedia.  Any  directory  checking  will  result  in 
read-only  status  settings  for  the  BBE-80  since  CSC  check-sua 
bytes  are  not  provided  for  by  the  ilB3-80  controller. 
Finally,  two  "tracks"  are  reserved  for  the  operating  systea. 
This  will  aid  in  the  iapleaentation  of  an  MEB-80  LOADER  on 
track  0  and  track  1. 
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3.  Disk  configgratlon  Tablas 


The  OKPBii.DEF  file  contains  inforoation  about  the 
physical  characteristics  of  each  logical  device.  Since  sore 
than  one  possible  device  type  aay  be  generated  in  this 
i iplenentation,  it  is  necessary  to  aap  the  CP/a-86  logical 
device  numbers  and  their  associated  physical  characteristics 
tc  the  actual  physical  devices  they  represent.  A  set  of 
tables  has  been  developed  to  accomplish  this  task  and  is 
contained  in  the  file  called  CONFIG. DBF.  This  file  is  also 
an  8086  assembly  language  source  code  file  which  is  included 
into  the  BIOS  during  assembly.  The  configuration  file  is 
entirely  a  product  of  this  implementation  and  has  no 
relation  to  Digital  Research's  CP/M-86  distribution  BIOS 
code.  A  summary  description  of  the  CONFIG. DBF  file  entries 
is  contained  in  the  CONFIG. DEF  file  itself.  A  complete 
discussion  of  the  tables  will  be  presented  here. 

The  first  entry  in  the  configuration  file  is  the  number 
of  logical  disks  defined.  The  identifier  name  in  the  file 
is  ''num_log_di3k''  and  this  entry  is  an  eguate  statement. 
The  value  of  this  label  can  be  in  the  range  0-16  decimal  but 
must  correspond  to  the  "DISKS”  statement  in  the  DKPEM.DEF 
file. 
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The  next  entry  is  the  dexice  table.  The  identifier  naae 
in  the  file  is  "device^table"  and  this  table  is  a  0-16  byte, 
one-byte  per  entry,  table.  This  table  describes  the  type  of 
each  disk  device  in  logical  order  froe  CP/ii-86  disk  nuaber 
zero  (0)  to  the  highest  C?/a-86  disk  nuaber  generated  (which 
is  "nuB_log_disks"  ainus  1) .  A  byte  position,  or 
displaceaent ,  in  the  table  corresponds  to  the  logical 
CP/H-86  disk  nuaber  (viz.,  byte  offset  2  is  the  device  type 
entry  for  CP/N-86  disk  nuaber  2,  if  generated) .  Bach 
logical  CP/H-86  disk  that  is  defined  aust  have  an  entry  in 
this  table  indicating  its  device  type.  Therefore,  the  size 
of  this  table,  in  bytes,  will  equal  the  nuaber  of  CP/a-36 
disks  defined.  The  different  device  types  supported  in  this 
inpleaentation  each  have  a  unique,  faexadeciaal,  byte  value 
to  identify  thea.  These  codes  are  defined  in  equate 
stateaents  at  the  beginning  of  the  BIOS.  The  user  will  aake 
entries  into  this  table  using  the  equate  constants 
''disk_type"  and  "abbdO^type",  with  each  successive  entry 
separated  by  a  coaaa. 

Following  the  device  table  is  the  disk  logical  table  for 
the  iSBC  202  disk  controller.  The  identifier  naae  in  the 
file  is  "OK_logical_tabla"  and  this  table  is  a  0-16  byte, 
one-byte  per  entry,  table.  This  table  aaps  logical  CP/N-66 
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disk  nuabers  (0*15  possible)  to  internal  iSBC  202  disk 
controller  naabers.  A  single  iSBC  202  controller  can 
address  up  to  four  disks  (internally  nuabered  0*3) .  A 
specific  BIOS  configuration  aay  assign  the  four  iSBC  202 
disks  to  any  four  CP/t!*86  disk  nuabers  in  the  range  0*15. 
These  CP/N-d6  disk  nuabers  aust  be  napped  to  iSBC  202  disk 
controller  nuabers  (0*3)  to  be  used  in  the  disk  channel 
coaaand  words.  Therefore,  this  table  naps  logical  CP/n*66 
disk  nuabers  to  iSBC  202  disks  (up  tc  to  a  aaxiaua  of  four, 
since  this  iapleaentation  is  designed  for  a  single  iSBC  202 
controller) .  The  size  of  this  table,  in  bytes,  can  be  up  to 
16  bytes,  with  the  offset  in  the  table  corresponding  to  an 
entry  for  that  CP/I1*86  logical  disk  nuaber.  It  is  iaportant 
tc  note  that  an  entry  aust  exist  for  all  positions  in  the 
table  up  to  and  including  the  offset  for  the  last  CP/B-86 
disk  generated  as  an  iSEC  202  disk  device.  The  value 
"CK.null",  which  is  aerely  a  ^place  holder*',  is  used  for  all 
entries  which  do  not  correspond  to  iSEC  202  disk  devices. 

?or  exaaple,  if  two  iSBC  202  disks  were  generated  as 
logical  CP/!1*86  disk  nuabers  0  and  4,  then  the  table  would 
be  five  bytes  long.  Byte  offsets  0  and  4  would  contain  OOH 
and  01H  (as  internal  disk  nuabers)  respectively,  while  byte 
offsets  1*3  would  contain  the  ”DK_null'*  place  holding  entry. 
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f Cl  the  HBB-SO  controller  (s) .  The  identifier  naie  in  the 
file  is  ''J!B_logical_table''  and  this  table  is  a  0-16  word, 
one-word  per  entry,  table.  This  table  naps  logical  CP/a-86 
dish  numbers  (0-15  possible)  to  MBB-80  controller  segment 
base  addresses.  Any  number  of  BBB-SO  "disks"  may  be 
generated  anywhere  (non-seguentially  and  non-contiguously) 
in  the  logical  CP/N-86  disk  range  of  0-15.  The  size  of  this 
table,  in  words,  oust  be  ezactlv  equal  to  the  number  of 
disks  defined  ("nun_log_disks") .  The  word  offset  in  the 
table  corresponds  to  an  entry  (controller  segment  base 
address)  for  that  CP/M-86  aBB-80  "disk."  It  is  important  to 
note  that  an  entry  must  exist  for  all  positions  in  the 
table.  The  value  "MB^null",  which  is  merely  a  "place 
holder",  is  used  for  all  entries  which  do  not  correspond  to 
an  n6B-80  "disk"  device.  This  table  is  also  used  to 
initialize  the  MBB-80  controller  (s)  based  on  the  total 
number  of  CP/H-86  disks  defined.  The  table  is  "walked 
through",  with  null  entries  being  ignored  and  with  non-null 
controller  segment  base  addresses  being  initialized. 

I 
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Therefore,  unlilce  the  disk  logical  table,  there  aast  be  one 
entry  for  every  logical  CP/a-86  disk  defined. 

For  example,  if  five  CF/a-86  disks  were  generated,  with 
numbers  0,  1  and  3  being  iSBC  202  disks  and  numbers  2  and  4 

being  MB3-80  **disks'',  this  table  wculd  be  five  words  in 
length.  trord  offsets  2  and  4  would  contain  valid  BBB-80 
ccntrcller  segment  base  addresses  (in  hex) ,  while  word 
offsets  0,  1  and  3  would  contain  the  "HB.null"  place  holding 
entry.  It  is  also  important  to  note  that  when  bocn  loading 
a  CE/a-86  operating  system  with  NBB-80  boards  generated  as 
disks,  it  is  imperative  that  all  HBB-80  boards  be  plugged 
into  the  IHTEILEC  BOS  chassis  and  powered  up.  Failure  to  do 
so  will  cause  the  BIOS  initialization  routine  to  "hang"  when 
processing  the  valid  controller  segment  base  addresses  for 
aBE-80'3  in  this  table. 

4.  BIOS  Generation  Procednre 

The  procedure  for  the  generation  of  a 
user-configured  BIOS  and  a  new  CP/li-86  operating  system  is 
described  on  pages  80-82  of  Reference  21.  A  synopsis  of 
that  procedure,  along  with  the  necessary  modifications  for 
this  implementation,  will  be  presented  here. 

The  two  files,  OKPRB.OEF  and  CONFIG.OEF,  are  updated,  as 
specified  above,  to  reflect  the  user*s  desired  devices  and 
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confiqarations.  The  CP/(1'‘66  6EHDBF  utility  pcograa  is  run 
utilizing  DKCRH. DBF  as  input  and  producing  OKPBB.LIB  as 
output. 

Assuning  all  necessary  deTice**dependent  aodifications 
are  sade  to  the  BIOS,  assesbly  of  the  BIOS  can  take  place. 
Wo  Bodifications  are  necessary  to  this  iapleaentation  BIOS 
if  only  iSBC  202  disks  and  WBE-SO  "disks",  in  sose 
coahination,  are  to  be  used.  This  iapleaentation*s  BIOS  is 
included  in  the  file  called  (1BBIOS.A86  and  is  listed  in 
Appendix  B.  In  the  code  file  H3BI0S.A86,  there  are  the 
appropriate  ASn86  "include  stateaents"  for  the  files 
DKPBW.LI3  and  CONFIG. DBF  which  will  cause  then  to  be 
inserted  into  MBBIOS.A66  daring  assesbly.  It  was  found  that 
the  8086  cross  asseabler,  a  CP/tl-60  prograa,  has  a  saall 
syabol  table  capacity.  Therefore,  assesbly  of  BBBIOS.Add 
must  take  place  under  CP/ll-86. 

Opon  successful  asseably,  the  file  BBBIOS. H86  is 
produced.  This  file  is  concatenated  tc  the  CP/H-36 
distribution  CCP  and  BOOS,  contained  in  the  file  CPH.H86, 
using  the  CP/Cl-86  utility  prograa  called  PIP.CBO.  The  naae 
of  the  resulting  coabined  file  should  be  a  dunay,  teaporary 
naae  such  as  NBWCPn.H86.  The  resulting  CCP,  BOOS  and 
custoaized  BIOS  hex  file  is  then  converted  to  the  CUD  file 
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fciiat  by  executing  the  CP/a~86  utility  progiae  called 
GPKcac.caD.  The  GZMCHD  options  of  an  6080  eeeory  eodel  and 
an  absolute  code  location  of  "hUO”  eust  be  specified.  The 
fcxiat  of  the  coneand  with  the  options  follows: 

GENCMD  HEflCPH  8080  ccdeCAUO] 

Finally,  the  NEHCPH.CEO  file  is  transferred  to  a  new  systee 
disk  that  contains  a  LCAOEB  prograo  (see  Chapter  VII)  and 
renaaed  to  CPH.STS.  Now  the  tailcring  process  is  complete 
and  a  boot  load  to  the  new  system  disk  will  invoke  the 
CF/H-86  that  has  been  generated. 

5.  Beconflgurino  the  BIOS 

This  implementation  has  been  designed  to  directly 
support  a  single  iSEC  202  disk  controller  and  multiple 
llBE-80  boards  in  the  BIOS.  This  allows  for  up  to  four  (4) 
flcppy  disks  and  up  to  "n”  (where  "n"  eguals  sixteen  minus 
the  number  of  iSBC  202  disks  generated)  NBB-80  disks. 

The  number  and  types  of  iSBC  202  and  NBB-80  disks  can  be 
altered  via  the  device  and  configuration  tables.  No  changes 
are  necessary  to  this  implementation's  BIOS  code 
(NEEIOS.AdS) .  Following  the  procedures  of  Section  0.4  of 
this  chapter  will  generate  a  new  configuration  in  accordance 
with  the  information  contained  in  the  tables.  Therefore, 
this  BIOS  can  be  easily  expanded  to  support  additional 
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M6E-‘80  "disks"  and  two  lore  iSBC  202  drives  (since  the  iSBC 
202  controller  is  currently  controlling  only  two  physical 
drives) . 

This  iepleeentation  has  been  generated  with  three  (3) 
logical  CP/N-86  disks.  CF/B-86  disk  nuabers  0  (drive  i:) 
and  2  (drive  C:)  aap  to  the  iSBC  202  controller's  internal 
disk  nuabers  0  and  1.  CF/I)-86  disk  nuaber  1  (drive  B:)  aaps 
to  an  SBB-SO  Bubbl-Board  controller  at  a  segaent  base 
address  of  08000H.  &  segaent  base  address  of  G8000H  was 
chosen  for  two  reasons:  (1)  CF/B-86  I/O  reserved  addresses 
in  the  first  64K  segaent  could  not  be  used  because  of  the 
inability  to  inhibit  the  onboard  BAH  for  aeaory-aapped  I/O, 
and  (2)  080000B  is  significantly  out  of  the  address  range 
for  Bost  applications.  This  address  can  be  changed  by 
acdifying  the  entry  in  the  CONFIG. OEF  file  for  the  HBB-80 
controller  segaent  base  address. 

E.  BVALOATION  OF  THE  IHPLEHENXITIOH 

1.  Perforaance 

The  priaary  criteria  fcr  the  perforaance  evaluation 
of  this  iapleaentation  was  the  speed  of  execution  of  the 
input/output  functions  of  the  types  of  disk  devices.  Three 
different  prograas  were  cun  on  both  an  HBB-80  "disk"  and  on 
an  iSBC  202  disk  to  deteraine  execution  tiaes.  A 
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coctentional  stopwatch  was  used  for  the  tising  and  the 
results  of  those  tests  are  suaearized  below. 

The  first  test  consisted  of  executing  the  CF/tl-86 
utility  prograi/  called  EIP.CHO#  which  transfers  CP/H-86 
files  between  disks.  The  PIP  prograe  and  target  files  of 
2K»  6K  and  28K  bytes  were  loaded  to  both  an  KBE-dO  "disiC 
and  an  iSBC  202  disk.  Transfer  operations  were  performed  on 
each  file  on  each  device  utilizing  saae-device  resident 
copies  of  PIP,  the  target  file  and  the  destination  file. 
The  results  of  the  test  utilizing  the  PIP  prograa  were  as 
follows: 


File  Size  (Bytes)  HBB-80  (Seconds)  iSBC  202  (Seconds) 


2K 

6K 

28K 


3.5 
6.  1 
18.2 


11.2 
11.3 
21. 2 


The  second  test  consisted  of  executing  the  CP/H-86 
utility  prograa,  called  ED.CHD,  which  is  an  object-oriented 
editor  for  files.  The  ED  prograa  and  target  files  of  2K,  6K 
and  24R  bytes  were  loaded  to  both  an  HBB-80  "disk**  and  an 
iSBC  202  disk.  Edit  operations  were  perforaed  on  each  file 
on  each  device  using  saae-device  resident  copies  of  ED,  the 
target  file  and  the  destination  file.  The  events  tiaed  and 
tested  for  an  edit  operation  were  the  reading  of  the  ED 
prograa  into  aeaory  and  the  writing  of  the  target  file  back 
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to  its  scarce  disic  froa  BAH  seaory 
editicg  test  were  as  follous: 


The  results  of  the 


The  last  test  consisted  of  executing  the  CP/Il-86  utility 
prcgrao,  called  ASHSS.CHC,  which  asseables  8086  asseebly 
language  files  into  8086  hex  files.  The  ASH86  program  and 
target  files  of  4R,  8K  and  14K  bytes  were  loaded  to  both  an 
nB£-80  "disk**  and  an  iSBC  202  disk.  Assesbly  operations 
were  perforaed  on  each  file  cn  each  device  utilizing 
saxe*device  resident  copies  of  ASH86,  the  target  file  and 
all  of  the  ASI186  output  files.  The  results  of  the  asseably 
test  were  as  follows: 


i~80  ^Seconds) 


20.9 

45.0 

64.3 


28.4 

53.7 


81.9 


Froa  these  test  results  it  can  be  computed  that  an 
aBE-80  ’’disk"  will  provide  an  average  increase  of 
approximately  42  percent  in  input/output  over  an  iSBC  202 
disk.  Of  course,  the  more  I/O  intensive  a  program  is,  the 
greater  the  performance  advantage  that  can  be  realized  when 
using  an  MBB-80  vice  an  iSEC  202  disk. 
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2. 


Three  pilaary  liaitations  were  discovered  in  this 
isFleaentation:  transportability,  density  and  transfer 
rate.  A  certain  aeasure  c£  transportability  is  provided  in 
that  any  single  NBB-80  Babbl-Eoard  is  a  logically  coaplete 
CF/ll-86  dish.  The  board  can  be  removed  from  the  IMTELLEC  OD 
HDS  system  chassis  and  moved  tc  another  system  that  supports 
BBE-60  devices  under  CP/a^d6.  However,  this  dees  require 
the  "powering  down"  of  the  chassis  prior  to  removing  the 
board.  It  is  also  recognized  that  the  media  of  a 
solid-state  circuit  board  is  different  frem  that  of  a 
flexible,  thin,  magnetic  dish.  It  is  not  clear  which  media 
is  more  conducive  to  transportability  in  any  given 
application  and  environment. 

The  second  limitation  involves  the  relatively  small 
capacity  of  the  nBB-80  "dish"  (78K  bytes)  in  comparison  to  a 
single-density  or  double-density  floppy  dish  (250K  or  500K 
bytes) .  Even  if  the  full  capacity  of  the  MBB-80  {92K  bytes) 
could  be  used,  the  capacity  difference  is  significant.  The 
lirited  capacity  of  the  HBE-80  restricts  the  number  and  size 
of  the  applications  which  can  be  executed  entirely  with  the 
HBE-80  storage  device.  This  limitation  made  large 
assemblies  on  HBB-80's  and  HBE-80  CP/H-86  resident  dishs 

impractical  for  a  useful  izplementaticn. 
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The  third  liaitation,  rraaster  rate,  becoaes  evident  in 
viewing  the  test  results  presented  in  the  perforoance 
section.  As  the  size  of  the  file  is  increased,  the  a3B-80*s 


advantage  over  the  iSBC  202  on  I/O  operations  becoaes  less 
noticeable.  This  is  prinarily  due  to  the  fact  that  the 
NBG-80's  transfer  rate  is  only  45  Kbits/second,  coapared  to 
a  transfer  rate  of  250  Kbixs/second  for  the  iSBC  202.  When 
I/C  is  perforaed  where  the  nuaber  of  seeks  is  relatively 
saall  in  coaparison  to  the  nuaber  of  actual  bits 
transferred,  the  NBB-80's  advantage  is  diminished.  The 
validity  of  this  trend  could  not  be  verified  by  the  testing 
of  large  files  because  of  the  capacity  limitation  cited 
above. 

It  should  be  noted  that,  upon  the  availability  of 
multiple  lIBB-80  boards,  a  system  can  be  easily  generated  to 
support  aany  (lBB*-80  ’’disks."  Then,  large  applications  could 
be  run  exclusively  on  flBE-80  "disks"  by  utilizing  target 
disk  specification  parameters  that  are  available  in  most 
CP/H-86  utility  programs.  Additionally,  the  future 
generation  of  a  BIOS  utilizing  the  currently  available, 
high-capacity  (in  byte)  aagnetic  bubble  devices  is  not  to  be 
precluded.  This  iapleaentation  of  a  BIOS  provides  an 
excellent  and  easily  adapted  fraaewoik  for  the  addition  of 
new  types  of  disk  devices. 

106 


3.  Applications 

This  iaplsaentation  of  an  (lBE-80  Subbl-Board  within 
the  CP/M-86  operating  systen  has  produced  a  workable  host 
aicrcconputer  envircnoent  which  can  be  used  for  research  and 
evaluation  of  magnetic  bubble  memory  technology.  It  has 
also  produced,  with  the  subseguent  addition  of  mere  MflB-80 
boards,  a  developmental  system  which  offers  significant 
performance  (speed  of  I/O)  improvements  over  standard  floppy 
disks  in  certain  applications. 

There  is  much  theoretical  research  on  the  applicability 
of  magnetic  devices.  The  literature  contains  many  untested 
and  unimplemented  designs,  algorithms  and  programs  for 
applications  ranging  from  "fast  sorts"  to  database 
management  schemes.  This  implementation  provides  a  host 
system  capable  of  supporting  research  and  experimentation  in 
these  areas  on  a  fully-operational  microcomputer  system  that 
supports  magnetic  bubble  devices. 

This  implementation  has  produced  a  system  capable  of 
supporting  up  to  sixteen  MBB-80  "disks."  Despite  the 
individual  capacity  limit  of  78K  bytes  per  aBB-80,  it  is 
obvious  that  a  significant  reduction  in  program  development 
time  could  be  achieved  utilizing  exclusively  21BB-80  logical 
"disks."  This  system  is  built  upon  the  highly-regarded 
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Intel  8086,  16-bit  aicroprocessor  running  under  the  CP/H-86 
operating  systen.  These  characteristics,  cosbined  vith  the 
deicnstratad  perforaance  cf  the  NBB-80,  contribute  to 
provide  a  robust  host  systea  for  research  and  application 
prcgrao  developaent  utilizing  oagnetic  bubble  devices. 
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7II.  BOOTLOADING  CPyM-86  PBCfl  THE  aBB-80 


A.  BOOT  BOB  AND  LOAOEB  COISIDBBAIIOMS 

Nhen  installed  in  the  iSBC  86/12A,  the  BOOT  BOB  is  part 
of  the  lenory  address  space,  beginning  at  byte  location 
OFEOOOR,  and  receives  control  when  the  systen  reset  button 
is  depressed.  The  BOOT  BOB  on  the  standard  iSBC  36/1 2A 
coctains  the  957  sonitor  prograa  as  supplied  by  Intel.  The 
pregram  implemented  on  the  ECBOM  chips  was  modified  by 
adding  code  to  the  end  of  the  957  monitor  program  in  memory 
addresses  that  were  not  utilized  in  the  implementation  of 
Peference  18.  This  customized  addition  of  code  to  the  957 
mcnitcr  program  begins  at  memory  address  OFF040H  and  has  the 
responsibility  of  reading  the  LOAOEB  program  from  the  first 
two  system  tracks  of  the  CF/N-86  default  disk  drive  into 
memory  and  then  passing  control  to  the  LOAOEB  prograa  for 
execution. 

The  BOOT  BON  is  actually  an  EPBOB  which  can  be  modified 
fer  specific  implementations.  The  host  development  system, 
as  described  in  Reference  18,  reads  the  LOAOEB  prograa  from 
tracks  0  and  1  on  physical  drive  number  0  of  the  iSBC  202 
ccntrcller.  The  additional  BOOT  BOB  code  contains  the 


necessary  routines  for  initializing 


the  iSBC  202  controller 


and  fcr  reading  the  LOAOBB  program  froa  disk  into  aeaocy. 
This  procedure  is  initiated  by  issuing  a  "GFFDaiO"  coaaand 
to  the  957  aonitor,  Hhich  passes  control  to  the  beginning  of 
the  bootstrap  code  in  the  BOOT  BOB. 

It  was  considered  desirable  to  be  able  to  boct  load  the 
CF/B-86  operating  systea  £roa  either  an  iSBC  202  disk  or 
free  an  BBB-SO  logical  “disk,"  This  requires  two  entry 
points  into  the  additional  code  in  the  BOOT  BOB.  These 
entry  points  will  set  a  flag  indicating  whether  an  iSBC  202 
disk  or  the  BBB>80  is  to  be  used  as  the  boot  loading  device. 
Additionally#  routines  for  initializing  the  BBB-80  and  for 
reading  track  0  and  track  1  on  the  BBB-dO  had  to  be  included 
in  the  BOOT  HOB. 

The  available  space  in  the  BOOT  BOB  address  space  is 
severely  liaited.  Therefore#  the  code  for  coaaon  functions 
in  the  BOOT  BOH  aust  be  used  by  both  an  iSBC  202  boot 
request  and  an  HBB-80  boot  request  when  boot  loading.  Then# 
based  on  the  value  of  the  entry  point  flag#  the  requested 
device  type  (viz.#  iSBC  202  or  BBB-80)  initialization  and 
read  routines  will  be  utilized  to  read  into  BAB  the  LOADEfi 
pregraa  from  tracks  0  and  1  of  the  boot  device.  A  coaaon 
section  of  code  will  be  used  to  pass  control  to  the  LOAOEB 
preqraa  for  execution.  A  priaary  consideration  aust  be 


restricting  the  size  of  this  additional  code  to  the  unused 
space  after  the  957  lonitor  progras  in  the  iS6C  d6/12A's 
onboard  EPROn. 

The  LOADER  progras  is  a  sisple  subset  of  the  CP/M-86 
operating  systes  that  contains  sufficient  file  processing 
capability  to  read  CPU. STS  into  sesory  fros  a  systes  disk. 
Hhen  the  LOADER  progras  cospletes  its  operation,  the  CPM. SYS 
progras  receives  control  and  proceeds  to  process  operator 
input  coBsands.  The  LOADER  prcgras  consists  of  a  loader  CPU 
and  a  loader  BDOS  (distributed  by  Digital  Research)  along 
with  a  user-configured  loader  BIOS.  The  file  resulting  fros 
the  concatenation  of  these  three  modules  is  converted  to  an 
executable  CND  file  and  placed  on  tracks  0  and  7  of  the 
systes  disk.  [Ref.  21:  pp.  77-79] 

A  user-configured  loader  BIOS  can  be  generared  fros  the 
BIOS  code  developed  in  this  ioplesentation.  The  cosplete 
flexibility  of  device  configuration  that  is  possible  in  a 
standard  BIOS  is  also  possible  in  a  loader  BIOS.  This 
implies  an  important  consideration:  the  LOADER  progras  does 
not  have  to  read  CPH.STS  from  the  sase  device  that  the 
LOADER  progras  itself  was  read  fros.  The  LOADER  progras 
will  read  CPH.STS  fros  the  default  disk  nusber  and  its 
corresponding  device  type  based  upon  the  device 
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configurations  and  aappings  specifisd  in  the  leader  BIOS. 
Issuing  a  aonitor  "GO"  cossand  for  the  entry  point  of  the 
iSEC  202  in  the  BOOT  BOM  will  always  result  in  the  contents 
of  tracks  0  and  1  (the  LOAOElt  prograa)  on  physical  iSBC  202 
drive  nuaber  0  being  read  into  RAH.  Likewise,  issuing  a 
aonitor  "GO"  coaaand  for  the  entry  point  of  the  MBB-80  in 
the  BOOT  BOM  wi 11  always  result  in  the  contents  of  "tracks" 
0  and  1  of  the  NBB-80  at  a  controller  segment  base  address 
of  08000H  being  read  into  BAM.  The  actual  device 
configuration  contained  in  the  loader  BIOS  is  not  restricted 
by  the  type  of  device  used  by  the  BOOT  BOM  when  reading  the 
LCACEB  prograa. 

B.  BOOT  BOH  AHO  LOADER  IHBLBHEHTATIOH 

The  additional  code  for  the  BOOT  BOH  was  written  and 
tested.  It  provided  for  a  conditional  boot  load  from  an 
iSEC  202  or  from  an  MB6-80  at  a  controller  segment  base 
address  of  08000H.  The  entry  points  are  0FFD40H  for  the 
iSEC  202  and  0FFD44H  for  the  MEB-80.  Upon  depressing  the 
reset  button,  the  957  aonitcr  prograa  begins  execution.  To 
boct  load  from  the  iSBC  202  the  acnitcr  coaaand  "GFFD4:0"  is 
given,  which  is  the  saae  ccaaand  as  that  used  in  the 
i vpleaentation  of  Reference  18.  To  boot  load  froa  the 
MBE-80,  the  acnitor  ccaaand  "GFFD4:0004"  is  given. 
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The  additional  code  for  the  BOOT  BOM  contains  the  entry 
points  for  the  two  device  types,  the  iSBC  86/12i 
initialization  procedures  and  the  code  necessary  to 
initialize  the  selected  boot  device  and  read  the  LOADEB 
prcgras  froa  the  systea  tracks  of  that  device.  The 
additional  code  for  the  BOOT  BOB  is  contained  in  the  file 
called  BBdOBON.A86.  This  file  is  asseabled  and  the 
resulting  object  code  is  added  to  the  957  aonitor  prograa  on 
the  iSBC  86/12A's  onboard  EPBOB.  This  procedure  is 
described  in  Section  C  of  this  chapter. 

The  LOADEB  prograa  itself  consists  of  three  parts:  the 
Load  CPN  program  (lOCPH. H86) ,  the  Loader  Basic  Disk 
Operating  System  (L06D0S.H86)  and  the  Loader  Basic  I/O 
Systea  (LOBIOS.  H86)  .  The  files  L0CPtl.H86  and  LOBOCS.  H86  are 
included  as  part  of  the  standard  Digital  fiesearch 
distribution  systea  for  CP/tl>86.  The  loader  BIOS  is 
generated  from  the  file  HEBIOS.A86,  which  is  also  used  to 
generate  the  standard  CP/il>86  BIOS  for  this  impleaentation. 
nBEIOS.A86  contains  a  conditional  asseably  switch,  called 

"Icader.bios** ,  which,  when  enabled,  produces  a  leader  BIOS. 

* 

The  effect  of  this  switch  is  to  modify  certain  addresses  to 
correspond  to  entry  points  into  LDCPB  and  LOBCCS  and  to 
eliminate  BIOS  code  that  is  not  needed  in  the  loader  version 
of  a  BIOS. 
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The  loader  BIOS  is  configured  in  exactly  the  saae  Banner 
as  the  BIOS  itself  and  is  fully  described  in  Section  D.4  of 
Chapter  VI.  The  two  files  CONFIG. DEf  and  OKFBM.DEF  Bust  be 
Bodified  to  Beet  the  user's  reguiresents  and  to  reflect  the 
device  that  will  contain  CPH.STS.  It  is  the  default  drive, 
or  CF/N-86  drive  nuaber  0,  that  is  specified  in  the  device 
table  that  determines  which  device  will  be  searched  for  a 
CEH.SYS  file. 

The  loader  BIOS  generation  procedure  is  different  froa 
the  BIOS  generation  procedure.  Upon  aodification  of  the  DBF 
files  and  successful  asseably  of  BBBIOS.&86,  a  file  called 
21BEIOS.H86  is  produced.  This  file  is  concatenated  to 
LDCFI1.H86  and  LDBDOS.H86  using  the  CF/a-86  utility  prograa 
called  PIP.cno.  The  resulting  coBbined  file  should  be  naaed 
LDEI0S.H86.  The  resulting  leader  CCP,  BOOS  and  BIOS  hex 
file  is  then  converted  to  the  CUD  file  foraat  by  executing 
the  CP/ll-86  utility  prograa  called  GENCBO.CBO.  The  GENCHO 
options  of  an  3080  menory  aodel  and  an  absolute  code 
location  of  "inOO"  must  be  specified.  The  foraat  of  this 
coBBand  is  as  follows: 

GENCHO  LOBIOS  8080  CODEC A400] 

Finally,  the  new  loader  BIOS  aust  be  copied  to  tracks  0  and 
1  cf  the  new  systea  disk.  This  is  done  by  executing  the 
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CP/N-86  utility  prograa  called  LDCOFT.CHD.  Assuaing  the 
leader  BIOS  executable  file  was  called  LDBIOS.CBD,  the 
fcllowing  coaand  would  be  used  to  initiate  this  process: 

LDCOPI  LDBIOS 

The  LOCOPY  program  will  ask  for  a  destination  drive  to 
receive  the  lOBIOS  prograa  on  its  track  0  and  track  1.  The 
target  drive  should  have  a  scratch  floppy  disk  (if  an  iSBC 
202)  or  an  BBB-80  board.  A  ccaplete  description  of  the 
LDCOPI  procedure  is  given  on  pages  77-79  of  Reference  21. 

C.  EPROH  GBNIBATION 

With  the  boot  load  prograa,  HB80B011,  written,  the  only 
reaaining  task  was  the  generation,  or  prograaaing,  of  the 
reguired  BPBCB  chips.  The  iSBC  36/12A  has  8K  bytes  of 
onboard  addressable  SPBOB,  provided  in  four  Intel  2716  EPROH 
chips  of  2K  bytes  each.  Because  of  the  odd-even  addressing 
of  the  iSBC  86/12A,  two  of  the  2716s  are  devoted  to  the  4K 
even  address  bytes  and  the  other  two  are  devoted  to  the  4K 
odd  address  bytes.  These  even  and  edd  address  EPROMs  are 
located  at  starting  addresses  OFEOOOH  and  0FE001H, 
respectively. 

As  previously  aentioned,  the  957  monitor  prograa  of  the 
IHTELISC  OD  HOS  system  occupies  a  large  portion  of  this 
onboard  EPROH  address  space.  The  aonitor  occupies  the 
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address  space  between  OFEOOOH  and  0FPD22H  and  also  has  junp 


wectcrs  located  between  OFFPEOH  and  OFFFFFH.  The  address 
space  awailable  for  boot  loader  prograes  is  approxieatelf 
720  (deciaal)  bytes  between  tbe  end  of  the  aonitcr  and  the 
jusp  vectors.  Since  this  available  space  is  located 
entirely  in  the  upper  4K  bytes  of  the  onboard  EFfiOH,  only 
the  two  2716  EPROM  chips  containing  the  upper  4K  bytes  of 
address  space  need  to  be  aodified  when  incorporating  a  boot 
leader. 

Otilizing  the  CP/M-^SS  utility  prograa  called  DDT.CHD, 
the  contents  of  the  uppvr  4K  bytes  of  the  iSBC  86/12i's 
onboard  EPROM  was  stm  into  aeaory  and  then  saved  as  an 
executable  CHO  file.  The  INTELLEC  DO  MOS  systes  was  then 
reconfigured  to  the  standard  Intel  8080  sytea  to  facilitate 
the  use  of  the  ISIS  operating  systea  and  the  Universal  Proa 
Pregraaaer.  The  CP/M-80  utility  prograa  called  OCT. CON  was 
then  utilized  to  replace  the  the  existing  boot  loader 
portion  of  the  saved  copy  of  the  EPBOH  contents  with  a  copy 
of  MB80RON.CMO.  This  resulted  in  a  single,  coaplete, 
contiguous  copy  of  the  desired  EPROM  contents. 

Intel  8080  asseably  language  pregraas  were  then  written 
to  split  a  file  into  contiguous  blocks  of  odd  address  and 
even  address  bytes.  Using  the  CP/M'-OO  DDT  prograa,  the  file 
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CGOtaining  tha  new  SEBOH  contents  was  loaded  into  aesory  and 
then  each  of  the  splitting  pccgcaas  loaded  and  executed. 
This  resulted  in  the  desired  EPBOH  contents  being  divided 
intc  two  contiguous  blocks  of  2K  bytes  each,  one  block 
containing  the  even  address  bytes  of  the  split  file  and  the 
other  containing  the  cdd  address  bytes  of  the  file,  and 
stcred  in  RAH.  The  ISIS  cpezating  system  was  then  booted 
with  the  two  split  blocks  cf  the  new  EPBOM  contents  still 
stcred  in  HAM.  The  ISIS  Universal  PROM  Mapper  (OPH)  system 
was  then  used  to  program  two  intel  2716  EPROM  chips,  one 
with  the  2K  byte  contiguous  block  of  odd  address  bytes  and 
the  second  with  the  2K  bytes  of  even  address  bytes 
previously  stored  in  RAM.  The  contents  of  the  two  newly 
prcgramaed  2716  chips  was  then  verified  using  the  facilities 
of  the  UPM  system. 

The  new  EPROM  chips,  new  containing  MB80BCM.CM0  in  place 
of  the  boot  loader  provided  by  Reference  18,  were  then 
placed  on  the  iSBC  86/12A  and  operationally  tested.  Boot 
leading  from  both  an  iSBC  202  disk  and  an  MBB-80  "disk"  was 
successfully  accomplished.  To  ensure  compatibility  with  the 
previous  implementation  of  Reference  18,  the  CP/H'‘86 
operating  system  of  that  implementation  was  successfully 
beet  loaded  with  the  new  EPROM  chips. 
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VIII 


i.  IHPLBBEHTATIO!l  STIOPSIS 

All  of  the  stated  goals  of  this  thesis  were  successfally 
acccsplished  in  this  iiplesentation.  A  aagnetic  babble 
device  (HBB-SO)  was  isplesented  utilizing  a  conventional 
■icrccoapater  operating  sysres  (CP/H-86)  and  a  coBsercial 
16-bit  aicroprocessor  (Intel  3086) .  A  fally  operational 
systea  capable  of  testing,  evaluating  and  utilizing  a 
aaqnetic  babble  device  in  a  standard  user  envizonaent  was 
presented. 

This  iapleaentat ion  was  accoaplished  in  a  Banner  such 
that  future  modifications  and  additions  of  hardware  will  be 
relatively  easy.  The  hardware- dependent  Basic  I/O  Systea 
(BIOS)  of  the  CP/tl-86  operating  systea  was  developed  and 
coded  as  a  structured,  aodularized,  table-driven  aodule. 
Device-dependent  routines  were  isolated  and  confined  to 
specific  subroutines  and  tables.  Device-independent  code 
was  structured  to  operate,  without  modification,  utilizing 
the  tables  and  subroutines  which  describe  the  specific 
hardware  of  the  system.  Docuaentation  and  structured 
programaing  techniques  were  eaphasized  to  provide  ease  of 
prcgraa  aaintenance  and  modification. 
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This  iaplsseiiata^ioQ  provided  a  systsa  in  which  the 

NBE^SO  aagnetic  brabble  device  has  the  functional  appearance 

> 

of  a  disk  ro  the/CP/H-86  operating  systea.  Conseguently,  at 
the  user-interface  level,  nc  special  considerations  are 
necessary  to  j  utilize  the  aagnetic  bubble  devices. 
Additionally,  /a  systea  was  generated  consisting  entirely  of 
aagnetic  bubble  devices.  The  systea  BOOT  BOB  and  LOADEfi 
prcgzaa  were /aodified  to  shew  the  feasibility  of  booting  the 


Cf/tl-86  operating  systea  frea  a  aagnetic  bubble  device. 

/ 

This  produc^ed  a  fully  operational  systea  supported  only  by 
aagnetic  btibble  secondary  storage  (viz.,  £2  floppy  disks). 

This  iapleaentation  and  the  preven  feasibility  of  a 
systea  using  aagnetic  bobble  devices  suggest  aany  possible 
applications  for  this  type  of  systea.  An  operational  systea 
is  now  available  for  further  testing  and  evaluation  of 
aagnetic  bubble  devices.  The  868-80,  as  a  logical  disk 


1 


device  jjgenerated  into  a  CP/8-86  environaent,  becoaes  a 
coapatiiile  aediua  fer  different  host  systeas  (viz.,  hard 
disk,  double-density,  single-density) .  8BB-80  boards  can  be 

‘i 

/ 

aoved,7  to  any  CP/8-86  BUIIIBOS  systea,  which  has  been 
generated  with  8BB-80  devices,  and  used  to  transfer  files  to 
tbejhost  systea  aedia. 

I 


119 


B.  BICOHMBHOATIONS  FOB  FOIOBB  BOBK 

There  are  four  najoc  areas  that  present  opportunities 
for  future  work.  These  areas  are:  (1)  storage  napping 
scheaes;  (2)  HBB-80  perforoance  aeasureaents;  (3)  generating 
and  testing  of  new  aagnetic  bubble  devices;  and,  (4) 
inpleoientation  of  new  and  existing  applications  utilizing 
MBE-80  devices. 

The  storage  napping  schene  for  the  BBB-80,  as 
inplenented  in  this  thesis,  is  both  sinple  and  efficient 
(viz.,  speed  of  code  execution)  but  wastes  15.2  percent  of 
the  total  capacity  of  the  BBB-80  Bubbl-Board.  Many  storage 
schenes  are  possible  if  the  IlBB-80  is  to  be  configured  as  a 
non-standard  disk  (viz.,  non-standard  in  relation  to  CF/II-86 
track,  sector  and  blocking  schenes) .  It  is  not  clear  what 
physical  configuration  of  the  llBB-80,  as  logically  presented 
to  the  CP/H-86  operating  systen,  will  provide  the  best 
tradeoff  between  speed  and  usable  capacity  for  the  (lBB-80. 

The  perfornance  evaluation  cf  the  BBB-80,  as  generated 
into  CP/ei-36  in  this  inplesenration ,  was  linited  to  sinple, 
tiled  tests  of  CP/M-86  utility  operations.  No  attenpts  were 
nade  to  perforn  an  analytical  evaluation  of  the  low-level 
aBE-80  bubble  operations  in  conparison  to  the  corresponding 
low-level  iSBC  202  disk  operations.  The  BBB-80  low-level 
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diaqncsric  programs  of  Chapter  V  would  prowide  an  excellent 
▼ebicle  for  collecting  data  on  the  performance  of  low-level 
I1BE-80  operations.  Additionally,  no  evaluation  was  made  of 
the  operational  and/or  environmental  ruggedness  of  the 
aEE-80.  Much  work  is  possible  in  determining  the 
suitability  of  magnetic  bubble  devices  for  use  in  harsh 
environments.  The  fully  operational  magnetic  bubble  system 
will  allow  for  testing  and  data  collection  under  actual 
operating  conditions. 

The  modularized,  table-driven  BIOS  developed  in  this 
iirplementation  is  easily  adapted  to  new  hardware.  Magnetic 
buttle  devices  based  on  new,  high-density  technology  with 
parallel  block/replicate  architecture  can  be  generated  into 
the  BIOS  by  simply  adding  appropriate  device-dependent 
read/write  routines  and  appropriate  table  entries.  The 
framework  provided  by  this  implementation  of  a  BIOS  will 
lend  itself  tc  the  addition  of  device  types  with  a  minimum 
amount  of  re-coding.  The  implementation  of  currently 
available  256K  byte  and  1M  byte  magnetic  bubble  devices  into 
the  CP/M-86  BIOS  would  provide  a  significant  improvement  in 
the  usefulness  of  this  implementation  as  a  host  development 
system. 
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Finally «  this  impleaentation  of  a  BIGS  can  support 
aultiple  (up  to  16)  {lBB-60  boards.  With  aultiple  boards 
(disks) r  this  impleaentation  system  would  be  suitable  for 
existing  applications  that  utilize  floppy  disks.  k  total 
magnetic  bubble  system  (without  floppy  disks)  has  been 
isplemented  with  a  single  BBB-SO  board.  This  allows  the 
implementation  of  many  applications  on  a  total  HBfi-BO  system 
where  the  availability  or  desirability  of  floppy  disks  is  in 
doubt. 

C.  POTEBTIAL  AFPLICiTIOIS 

Chapter  II  and  Chapter  III  presented  evidence  showing 
the  current  and  future  potential  of  magnetic  bubble  devices. 
The  capacities,  access  rates  and  transfer  rates  of  magnetic 
bubble  devices  are  becoming  competitive  with,  and  often 
surpass,  most  conventional  secondary  storage  media. 
Additionally,  the  characteristics  of  non-volatility,  low 
power  consumption,  environmental  ruggedness,  hign 
reliability  and  low  maintenance  exhibited  by  magnetic  bubble 
devices  give  this  technology  a  decided  advantage  over 
conventional  secondary  storage  media  in  certain 
applications.  Specifically,  the  application  of  magnetic 
bubble  technology  to  the  military  environment  appears  very 
desirable. 
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Magnetic  bubble  devices  reguise  only  DC  power  sources  in 
the  range  of  1.0  amperes  to  3.0  amperes  at  5  volt  and  12 
volt  levels.  Power  consumption  is  approximately  32  watts 
per  megabyte  of  data  capacity.  Floppy  disk  devices  require 
both  AC  and  DC  power  sources.  AC  line  frequency  must  be 
within  one-half  (1/2)  hertz  of  the  required  frequency 
because  of  its  effect  on  disk  rotational  speed  and,  thus, 
the  read/write  tolerances.  DC  power  sources  are  in  the 
range  of  5.0  amperes  to  8.0  amperes  at  5  volt  and  12  volt 
levels.  Power  consumption  is  approximately  350-400  watts 
per  megabyte  of  data  capacity.  Magnetic  bubble  devices  can 
operate  in  temperature  ranges  of  0  to  70  degrees  Celsius  and 
mairtain  data  storage  integrity  in  the  range  of  -65  to  150 
degrees  Celsius.  Magnetic  devices  can  operate  reliably  in 
up  to  100%  relative  humidity.  Floppy  disk  devices  can 
operate  in  temperature  ranges  .f  10  to  40  degrees  Celsius 
and  at  relative  humidity  levels  between  20S  and  80t. 
Operation  of  floppy  disk  devices  outside  these  ranges  can 
result  in  distortion  of  the  diskette,  followed  by  oxide 
deterioration,  hygroscopic  expansions,  off-track  recording 
and  finally,  irreversable  magnetic  effects.  Magnetic  bubble 
devices  can  withstand  shock  up  to  a  200G  force  and  vibration 
up  to  a  20G  force.  No  comparable  figures  for  floppy  and/or 


hard  disks  ar«  available  sine*  excessive  shock  and  vibration 
are  not  considered  as  part  of  their  potential 
"environsents,"  Sean  tise  between  failure  for  magnetic 
devices  is  typically  5-10  years  as  cospared  to  5000-6000 
hours  (approximately  1  year)  for  floppy  disk  devices.  It 
should  be  noted  that  disk  devices,  in  general,  require 
periodic  maintenance  and  magneric  bubble  devices  do  not. 

Because  of  the  stated  advantages  of  magnetic  bubble 
memcry  over  other  existing  secondary  storage  technologies, 
it  can  be  used  in  applications  requiring  mass  storage  of 
real  time  data  that  can  be  transferred  to  the  system's  main 
memory  for  processing.  Host  military  applications  have  only 
the  requirement  for  loading  of  programs  and  relatively  small 
amounts  of  data  to  main  memory.  In  these  cases,  the  large 
capacity  and  transfer  rate  advantage  of  hard  disks  (relative 
to  magnetic  bubble  devices)  would  not  be  needed. 
Consequently,  magnetic  bubble  devices  are  a  prime  candidate 
for  use  in  real  time  combat  systems  that  must  "go  to  war" 
such  as  the  O.S.  Navy's  ABGIS  weapons  system. 

Several  specific  military  applications  are  currently 
using  magnetic  bubble  devices.  The  Canadian  Navy  uses 
bubble  memory  for  data  recording  at  sea.  The  U.S.  Air  Force 
uses  magnetic  bubble  cassettes  to  distribute  and  run  P-15 
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aircraft  aaintenance  diagnostic  prograss.  Host  silitary 
applications  esquiring  a  ruggedized  storage  sedius  are 
currently  utilizing  tape  cassettes  and  flexible  disk  drives. 
Buttle  sesory,  in  portable  cassette  fors^  offers  significant 
advantages  over  tape  and  disk  sedia.  A  2H  bit  babble  sesory 
package,  capable  of  operating  in  a  tesperature  range  of  -54 
to  ♦ISS  degrees  Celsius,  is  being  developed  for  the 
Departsent  of  Defense  by  Western  Electric  and  Bell 
Laboratories.  It  is  targeted  for  use  in  a  wide  range  of 
silitary  applications.  [Ref.  23:  pp.  69-90] 

It  is  apparent  that  there  exists  a  significant  need  for 
sagnetic  bubble  devices  in  silitary  applications. 
Currently,  the  industry  is  addressing  the  probless  of  saking 
sagnetic  bubble  devices  econosically  feasible,  portable  and 
sore  reliable.  Even  if  the  cost  per  bit  resains  higher  than 
conventional  sedia,  the  advantages  of  sagnetic  bubble 
devices  in  both  silitary  and  cossercial  environsents  will 
present  a  convincing  argusent  for  the  need  and  use  of  this 
technology. 
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U££gSlI-A 

PSOGBia  LZS1IN6  OF  OIAGSO.ISM 


FILENAMES:  Pascal  =  ME. DIAG80 .TEXT 
CP/H  =  DIAG80.COM 

*i|«**4i4t4cvik««*«)|i*4i*««4(4i*««**********4i4u|i4i***4t«»#**«*4>**4>ai>*** 

8080  DIAGNOSTIC  TEST  FOR  PC/M  MBB-80  BOBBLE  MEMORIES  * 

CONFIGURATION:  . 

HOST  -  Intel  8080,  16  address  lxne$,  MDS  system, 
data  bus  on  8080  is  ^ight  bits. 

MBB  *  Interrupts  enabled,  interrupts  inhibited  in 
software,  single-page  node,  20  address  lines 
decoding. 

Sinple  bubble  test  for  the  8080  -  writes  or  reads  one 
user  specified  page  at  a  tine  -  user  also  specifies  test 
pattern  if  writing,  status  register  of  IJBB  is  displayed 
to  the  console  whenever  used  for  debugging. 

The  MBB-80  controller  base  is  defined  by  * PScontbase* . 
ME6-80  address  select  pins  aust  correspond  to  this 
address.  This  program  uses  nenory  napped  I/O  through  the 
base  address. 

Jeffrey  Neufeld  and  Michael  Hicklin,  CS-03,  Thesis  * 
*  Edos  function  numbers  for  calls  * 


SdcsSconin 

BdcsSconout 

» 

BdcsSentry 

BdcsSpstr 

BdcsSreset 


:*  Miscellaneous  equates  * 
blank  egu  020H 

cr  equ  OdH 

eol  egu  •$' 

If  equ  OaH 


equ  01H  ;func  i  for  Bdos  read  character 

equ  02H  ;func  *  for  Bdos  write  character 

equ  0005H  ; entry  for  call  to  Edos 

equ  09H  ;func  *  for  Bdos  print  string 

equ  OOH  ;func  #  for  CP/M-80  reset  to  CCP 

ous  equates  * 
egu  020H  ;Ascii  blank 

equ  OdH  ;carriage  return, 

equ  *$'  ;end  of  string  char  for  pstrSfnc 

equ  OaH  ;line  feed 


;*  HSB-80  characteristics  (equates) 

NBlnazpages  equ  641  ;t  of  pages  on  each  bubble  device 

MBFpagesize  equ  18  {bubble  device  page  size 

;*  MSE-80  command  byte  masks 

MBSbusyScheck  equ  00100000E  ;is  cont  busy?  check  (20H) 
MBSinitScmd  equ  000000018  ; intialize  the  controller  (01H) 
HBSreadAcnd  egu  10C00010E  {single-page  read  cad  (82H) 

MBSresetScmd  equ  01 000000 E  {reset  the  controller  (40H} 
HBlwriteScnd  equ  10G00100E  {single-page  write  cad  (eab) 


• 

\*  HEE-80  controller  and  Ports 

PSccntbase  egu  04000H 

P^psello  equ  Pfcontbase 

PSpselhi  equ  PRcontbase^ 1 


{base  of  controller 
{page  select  Isb 
{page  select  asb 
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PScndrsg 

Pjrdreg 

Plwrreg 

PSstatreg 

PSlccFszio 

PSlccpszhi 

PSpgsize 

PSselbub 


agu  P$contbas€'*>2 
egu  P|contbas€>3 
€gu  PScontbasa't'U 
ega  PScontbasa^S 
egu  PScontbas6'*>8 
aqu  P$contbas€+9 
aqu  P$ccntbase+12 
equ  PScontbase-t-IS 


coaaand  register 
read  data  register 
tfrite  data .  register 
status  register 
loop  size  Isb 
loop  size  Bsb 

Eage  size  register 
ub  dev  select  register 


MAIM  PROGEAM  -  CRITEB  * 


DIAG80: 


Loop: 


Write: 


Bead: 


Quit: 


til 

di 

Ixi 

call 

call 

call 

call 

cpi 

pash 

call 

call 

pop 

cpi 

aiu 

call 

a;!i 

call 

J;? 

call 

mvi 

call 


010QH 

SP,0b000H 

D, asgSsignon 

PrintJString 

InitSCont 

InitSDevs 

Aslc$0ser 

«QI 

Quit 

PSW 

Gets  Bubble 

GetSPage 

PSW 

•R* 

Read 

GetSPatterc 

WriteSPage 

Loop 

BeaaSPage 

PrintSOut 

Loop 

0, nsglguit 
PrintSstring 
C, BdosSreset 
BdosSentry 


stack  pointer  to  app  uuk 
disable  inxerrupts 
addr  of  signon  asg 
print  it 

init  the  MBS  controller 

init  the  babble  devices 

user  want  read  or  write? 

dees  user  want  to  quit? 

if  sc,  go  quit 

save  user's  answer 

get  user  bubble  *  for  test 

get  user  page  #  for  test 

restore  user's  answer 

is  this  a  read? 

if  so,  read  ;  else-write 

get  user  test  pattern 

write  the  page  to  HBB 

do  until  wants  to  quit 

read  back  the  page 

write  out  results 

do  until  wants  to  quit 

addr  of  done  sessage 

print  It 

rune  #  to  quit 

call  Edos  to  terainate  pga 


en,j  Qf  Main  Prograa  m**m**Jtim**m****m*mm* 


*******  **««**e******e**e*««ve«*««*«««««*«*e*iii«**«*:4i4i4t*4i**4t 

_  ASKSOSER  subroutine  * 

^  ; called  frea:  Main. 

AskSOser:  asks  user  if  wants  read, write, cr  quit 


;♦*  para  in  -  none. 
;•*  para  out  -  ans  in 


Ixi 

call 

call 

push 

call 

pop 

ret 


5,BS9Saskf unc 

Prin tSString 

ReadSChar 

PSW 

Crlf 

PSW 


_  reg  A,a=read,Q=quit 

all  else^^write. 

;addr  of  ask  fer  func  asg 
;print  it 

:get  the  user's  answer 
:save  user's  answer 
:skip  a  line  after  input 
;restore  user's  ans  for  ret 
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;***«**4i**4i**4i«*«*****4E«*«**««««4i«**««*»*«*«4t*«*4t**»««****W 

;*  CRLP  sutroutine  * 

:*«««****«***««  ip  *««*«*«**»««»»«»»«  «***«•*«»«»«** 


crlf; 


;called  frco:  &skSUs€X#Get$Bu]3ble.Get $Page, 
;  GetJPattern,  Printtcut. 

;**  issues  a  carr  ret,  line  feed  to  console 
;♦*  pars  in  -  none. 

-  "  none. 

:carr  ret 
;oatpat  one  char 
;line  feed 
:oatput  one  char 


:**  pan  out  - 
Bvi  A,cr 
call  Print $Char 
ovi  A,^f 
call  PrintSChar 
ret 


Get$Bubble: 


***:*i*e«4te***e«4i**e***eee«ap*»«*ee«e**«*««e*ee«e*eee«e  ****** 

«  GETSBOBBLE  subroutine  » 

**«**ip**************************************************** 

;called  frca:  Hain. 

.**  gets  bubble  #  for  test  froa  console 
;**  pan  in  -  none. 

.**  ban  out  -  loads  'bubde?*  variable. 

Izi  O,osa$getbuk  ;addr  of  get-bubble  asg 

call  PrintSstring  ;print  it 

;get  bubble  number  -  one  byte  (0-71 

**  "  ;g€t  hex  digit 

:clear  high  nibble 
;addr  bubdev  byre 
;st9re  it 

;skip  a  line  after  input 


call  GetSHex 
ani  Ofh 
Ixi  0,bubdev 
Stax  D 
call  Crlf 
ret 


*  GET$HEX  subroutine  ♦ 

************************* *************************** ****** 

called  frca:  GetSBubble,  GetJPage, 

,  GetSPattern. 

GetSHex:  x**  gets  a  nuaber  fros  cons,  converts  both 

nibbles  to  the  hex  value, ie..  'F*  keyed 
in  s  46  Ascii,  so  FF  returned  in  A 
**  pan  in  -  ncne. 

,**  para  out  -  double  hex  value  in  reg  A. 
call  ReadSChar  ;g9t  char  from  crt 

avi  H,08H  ;high  byte  of  table  addr 

nov  L,A  ;low  byte  -  index  to  table 

aov  A,H  ;table  lookup 

ret 


A********************************************************* 

*  GETSPAGE  subroutine  * 

********************************************************** 

;called  frca:  Bain. 

GetSPage:  gets  user  page  #  for  test  from  console 

;**  pan  in  -  none. 

;**  pan  out  -  loads  'gageno*  variable. 

Ixi  0,asg$getpg  ;addr  of  gerpage  asg 

call  PrintSString  ;print  it 

;high  byte  of  page  nuaber 

call  GetSHex  :get  hex  digit 

ani  Ofh  ;clear  high  nibble 

1x1  D,pageno$hi  ;addr  pageno  high 
Stax  D  ;store  it 

:low  byte  -  2  ascii  to  1  hex  digit  in  pagenoilo 
call  GetSHex  ;get  hex  digit-hi 

ani  OfOU  ;clear  low  nibble 

oov  B,A  ;save  high  nibble 

push  B  ;save  faigh 
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call  GetSHex 
ani  OfH 
pop  B 

III  D, pagenoilc 
Stax  D 
call  Crlf 
ret 


;get  hex  digit-lo 
:clear  high  nibble 
;rest9re  high 
:cgBbane  hi  and  lo 
;addr  pageno  lew 
;store  it 

;skip  a  line  after  input 


*  GETSPATTEHH  subroutine  * 

;called  fron:  Main. 

GetSPattern:  ;**  gets  user  pattern  for  test  fren  console 

;**  pare  ir  -  nene. 

z**  pare  out  -  loads  'pattern*  xariable. 

Ixi  D,DsgSqetpt  ;addr  c^  get  pattern  nsg 

call  PrintSString  ;print  it 


6 

, DsgSqetpt 
call  PrintSString 
call  GetSHex 
ani  OfOH 
mex  B,A 
push  B 

call  GetSHex 
ani  OfH 
pop  B 
ora  B 

Ixi  D, pattern 
Stax  0 
call  Crlf 
call  Crlf 
ret 


:get  hex  digit 
:clear  iow  nibble 
;save  high  nibble 
;save  high 
:get  hex  digit 
.‘Clear  high  nibble 
;restore  nigh  nibble 
;coBbine  hi  and  low 
:addr  of  pattern 
;store  it 

;skip  lines  after  input 


♦  INITSCONI  subroutine  * 

*000ii*m*m***m**m*mm**j***'m**m*****‘*m***m*mm***m*m**mmm***0* 

; called  frea:  Hain. 

InitSCont:  ;**  inits  the  MEB  controller 

I**  para  in  -  none. 

:♦*  para  out  -  none. 


. BsgSinitc 
call  PrintSString 
Ixi  B. HBSaaxpages 
1x1  H,PSloopszio 

BOV  H.C 

Ixi  HrPSloopszhi 

BOX 

Ixi  H,PSogsize 
Bxi  H, HBSpagesize 
Ixi  HfPScBdreg 
Bxi  H, HBSreset Scad 
Ixi  D,BsgSdcnec 
call  PrintSString 
ret 


addr  of  init  asg 
print  it 

fages  in  each  loop 
oopsize  Isb  port 
load  Isb  of  loopsize 
Icopsize  Bsb  port 
load  Bsb  of  loopsize 
page  size  port 
load  page  size 
ccBaand  register  pert 
issue  reset  coBaand 
addr  of  done  asg 
print  it 


.  ■k:$mftiMm****m**if***m^tm**if***n***’^*m***mtf****mmmm**m*m*mmmmw 

;*  INITSDEVS  subroutine  * 

.«**«***«*  4i:ti**«)|i*e«*e*e***««*«*«****«*e*«***4i**«*««)«i**4ie*** 

; called  frea:  Main. 

InitSDexs:  inits  each  bubble  dexice  cn  the  HBB 

;**  para  in  -  none. 

•**  para  out  -  none. 

Ixi  0,asgSinit,d  ;addr  of  init  asg 


ixi  D,asg$initd  ;addr  or 

call  PrintSString  ; print  it 

Bxi  A.O  ; first  de 


;addr  of  init  asg 


dexice  * 
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Eachidev 


push 

adl 

call 

Ixi 

call 


pop 

in? 

cpi 

Inz 

Ixi 

call 

ret 


PSR 

030H  . 

Print JChar 
0,osq$de7 
Priat$String 
PSH 

HfPSselbub 

n,K 

PSR 

HfPScndreq 

N,  MBSinitScad 
Rait 

C , asgSdone 
Printsstring 
PSR 
A 

OSH 

Bach  Sdev 

O,  BsqSdoned 
Print JString 


save  device  i 
convert  to  ascii 
print  it 
addr  of  dev  nsg 
print  it 
restore  dev  * 
select  babble  port 
select  this  device 
save  dev  *  , 
coeaand  register  port 
issue  init  coasana 
let  controller  work 
addr  cont  done  asg 
print  It 
restore  dev  # 
next  device  # 
last  device  ? 
if  not,  do  next 
addr  done  osg 
print  it 


L0ADSPA6E  subroutine  * 

;called  frcs:  BeadSPage,  RriteSPage. 
LoadSPage:  loads  the  variable  *Daaeiic*  to  the  MBB 


para  in 
:•*  para  ou 
Ixi  H,pagenoSlo 
aov  A, a 
Ixi  D,PSpsello 
Stax  D 
inx  H 
inx  D 
aov  A,n 
Stax  0 
ret 


.led  frca:  BeadSPage,  RriteSPage. 
loads  the  variable  *pageac*  to  the 


para  in  *  none, 
para  out  -  none. 
genoSlo  :addr  of  page  *  Isb 

;to  accuB 

psello  ;pa9e  select  Isb  po 

;load  it 
;to  page  i  asb 
;to  page  select  asb 
;to  accuB 
:load  it 


pert 


port 


*  PBIRTSCHAB  subroutine  ♦ 

:called  froa:  Crlf^|nit$Devs, PrintSI , 

PrintfChar:  i**  calls  Bdos  to  write  a  char  to  consols 

;**  para  in  -  char  to  write  in  Beg  A. 


;♦*  para  out  -  none 
aov  fi,A  ;loa 

avi  C. BdosSconcut  ;fun 
push  PSR 

call  BdosSentry  :cal 

pop  PSR 

ret 


;load  para  for  Bdos 
;func  1  for  Bdes  wri 


write  char 


:call  Bdos  to  write 


;*  PRINTSOai  subroutine  • 

.****«e***«**«*«*4i*»ee*e»***e«ee**ee*e«e«*«***»*e«**e 

;call€d  frca:  Main. 

PrintSOut;  ;*♦  reads  page  froa  MBB  buf-writes  to  cons 

para  in  -  none. 

!*e  para  out  -  none. 

Ixi  D^asgSprt  :addr  of  print  out  asg 

call  Printfstring  ;print  it 

avi  C, HBSpagesize  ;counter  for  bytes  to  read 
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ft  n 


Izi  O^PSrdreg 
Idaz  D 
push  B 

call  PrintS2 

§op  3 
cr  c 
In?  Prt 
1x1  D,Bsq$done 
call  PrintSString 
call  crlf 
ret 


read  data  register  port 
load  froB  fito  to  accuB 
saee  counter 
print  what  was  read 
restore  counter 
dec  counter 

read  next  if  not  180  read 
addr  of  done  Bsg 
print  it. 
skip  a  line 


^  PRISTSSTBING  subroutine  » 

;called  froa:  ksk$aser«GetiBufable,Get2Page, 
;  Ge tSPat tern, Ini tiCont, InitJOevs,Bain, 

;  PrintSCut ,R€ad$Page, HriteSPage. 
Print$string:  prints  a  string  to  console  ?ia  Bdos. 


**  para  in  -  address  of  string  in  reg  D. 
**  para  out  -  none. 

.BdosSpstr  ;func#  for  Bdos  print  strii 


d.Bdsnpst 

PSH 

BdosSentry 

PSH 


;func*  for  Bdos  print  string 
;call  Bdos  to  print 


;*  PRIRTSI  subroutine  ♦ 

; *ee*«*«ee«ee** *********** 

:called  froa:  Print$2. 

PrintSI:  ;**  converts  hex  value  of  low  nibble  to 

:  Ascii  and  prints  it  to  console. 

;**  para  in  -  hex  value  to  print  in  reg  A. 


:♦*  para  out 
aai  6fH 
adi  090H 
da^ 

aci  040H 
daa 

call  PrintSChar 
ret 


none. 

;clear  high  nibble 
iccnvert  ai 

;convert  lo 

; print  char 


4*«*******«*:e«:e«*«**«3|i**«»**»*****«*4i4i##«4i4i*««««*]^««*«4i«* 

PR1NT$2  subroutine  * 

******«««*«4i«******«4i:^*4t**4>*******«***»*v**********«****i|i 

;called  from:  Print$Out,Hait. 

Print$2:  ;*♦  converts  one  byte  hex  to  two  Ascii 

;  digits  and  prints  out  one  at  a  time. 

;**  para  in  -  hex  value  to  print  in  reg  A. 
;**  para  out  -  none, 
push  PSH  ;save  low  digit 


rrclrrc!rrc!rrc! 
call  PrintSI 
pop  PSH 
call  PrintSI 
Bvi  A, blank 
call  PrintSChar 
ret 


;save  low  digit 
;aove  hi  nibble  to  low 
;convert  and  print 
; restore  low  digit 
;ccnvert,  and  print 
;blank  char 

;print  it  for  separation 
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:*  BE&OSCHAB  subroutine  * 

.**«***)ii»e**4i»*««**«««««««  «»*•«««««««»««»*«*»««««*»*»«»***« 

;called  frcs:  AskSOser,  GetSHex. 

Bead$Char:  ;'**  reads  one  character  from  the  console 

cars  it  -  ncne.  ,  , 

;*•  para  out  -  char  read  in  reg  A. 
avi  C.BdcsSconin  ;func  #  for  Bdcs  read  char 
call  BdosSentry  :call  Bdos  to  read 


am 

ret 


07fH 


;clear  parity  bit 


**«*««*««**«**«**«**«*««* »««»»««»*»*«***« 
*  BEADSPAGE  subroutine  * 

**««****«*«*««*ee*4*«*««««ee«a*«««««ee9»«e*e«*«***««««4>***« 

;cal^€d  frcs:  Ha4.n. 

BaadSFage:  ;**  interfaces  with  EBB  to  read  a  cage 

para  in  -  uses  'pageno*  &  ’bubaev*  wars 
para  out  -  none. 

call  LoadsPage  :load  page  nuaber  to  HBB 

’  " '  "  number 

;load  addr  of  dev  # 


load  bubble  device 
Ixi  O^bubdev 
Idax  3 

Ixi  B,P$selbub 
aov 

; issue  read  coaaand 


;to  accua 
;select  bubble 
:load  dev  # 


register  port 


Ixi 

cail 

Ixi 

BVl 

call 

Ixi 

call 

ret 


D,  asgSrd 
PrintSString 
H,PScadreg 

E, E3lreadScBd 
Bait 

D,asg$done 

PrintSString 


;addr  of  reading  asg 
;print  it 

;OcaBand  register  cort 
:issue  read  coaaana 
;let  controller  work 
;addr  of  done  asg 
;pcint  it 


*  BAIT  subroutine  ♦ 

;called  frca:  InitSDevs^BeadSPage , 
BriteSfage. 

makes  a  delay  while  the  cont  works 
**  para  in  -  none. 

*m  -  — 


Bait: 


para  out  - 


Ihld  5 

Ihld  0 
Ihld  0 
Ihld  0 
Ihid  0 

Baiti:  1x1  9,PSstatreg 

aov  A.E 
push  P§B 
call  PrintS2 
pop  PSB 

am  EBSbusyScheck 

inz  Baiti 

Ixi  a,P$statreg 

BOV  A,E 

call  Print$2 
ret 


none. 

:30  cycle 
;5  cycles 


delay  at  2.5HHz 
each  Ihld  inst 


:status  register  port 
jread  status  register 
;save  status 
; print  out  status 
:restore  status 
;busy  aask  check 
:if  busy,  check  again 
;stat  reg  port-get  Iasi 
;read  status  register 
: print  out  status 


sta' 
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.*n0^iiifm************’t‘**m**m******m**mi)i*m*«*****mmm0*****mm** 

;*  WRITE$P&GI  subroutine  * 

;called  froo:  Main. 

HriteSPage:  intsrfacas  with  the  MBB  tc  writa  a  page 

;*♦  para  in  -  uses  'pageno*  6  'bufcdev*  vars 
;**  para  out  -  none. 

call  LoadSPage  :load  page  nuaber  tc  HBB 

;load  18  test  bytes  to  rifo 

avj.  C, MBSpagesize  ;counter  for  bytes  (180) 

1x1  D,PSwrreg  ;write  data  register  port 


page  nuaber 


Hritel; 


1X1 

Ixi 

aov 

Stax 

dcr 

•Jnz 


Hr  pattern 

D 

C 

Write!  . 


;load. bubble  device  nuacer 


;counter  for  bytes  (180) 
;write  data  register  port 
;addr  of  pattern  tc  write 
:load  pattern  to  accua 
:write  a  byte  to  fifo 
;dec  counter 

;juap  if  not  18D  written 


1x1  Orbubdev 
Idax  D 

1x1  HrPSselbub 
nov  C1,A 

;issue  write  coaaand 
1x1  OrBsgSwrt 
call  PrintSString 
1x1  HrPScadreg 
Bvi  Nr 9BSwrlte$cad 
call  Wait 
1x1  DrBsgSdone 
call  PrintSString 
ret 


;lcad  addr  of  dev  i 
;to  accua 

;sel6ct  bubble  register  port 
;load  dev  # 

;addr  cf  writing  asg 
;print  it 

;ccBaand  register  pert 
;lssue  write  coaaand 
;let  controller  work 
;addr  cf  done  asg 
;print  it 


.  *««*iii*«*«******9k«e**iti4i«**«***e«*»**««*«»e***vi»ee««ipee4i**** 

;  DATA  AND  VARIABLE  AREA  * 

fiubdev  db  0 

pagencSlo  db  0 

pacenoShl  db  0 

pattern  db  0 

• 

asgSaskfunc  db  'Enter  a  R  to  readr  Q  to  guitr  all  else  ' 
db  'is  write:  'reel 

BsgSdev  db  '  device  i  initing.  ' r^ol 

BsgSdone  db  '  done. ' rcrrlf r^ol 

BsgSdonec  db  'Done  with  controller .* r cXr If r^ol 

BsgSdoned  db  'Done  with  devices. ' rCrrlfrCrrlf^ecl 

BsgSgetbub  db  'Input  1  digit  bubble  #  (0-7):  ',ecl 

asgSqetpg  db  'Input  3  digit  hex  page  #  (ODO-280):  '.eol 

asgSgetpt  db  'Input  2  digit  hex  test  pattern  (00-FF) :  ' 

db  eol 

asgSinitc  db  '  Inlt:;.al;.zing  controller....  'rool,^ 

BsgSinitd  db  'Initializing  the  devices...  'rcrrlfr^ol 

asgSprt  db  'Page  read  is:  ',eol 

asgSquit  db  If r cr ,lf rcr r ' *♦  and  of  Test  **' rlf »cr reol 
asgSrd  db  'Reading  a  page...  'rsol 

asqSsiqnon  db  lf,cr.'  MBB-80  CP/N-80  ' 

db  'DIAGNOSTIC  TEST  ♦* ' r cr ,lf , cr rlf , €cl 
asglwrt  db  'Writing  a  page...  ',€ol 
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: table  for  converting  ascii  to  hexadeciaal 
orq  O03OH 

db  00H,11H,22H,33H,44H, 55H,66B,77H,88H,99H 

org  0841H 

db  0aaH,0bbH,0ccH,0ddH,0€eH,0r£H 


•  * 


;  End  of  Prcgraa  * 

END  0100H 


PBOGBia  LISIIMG  OF  DI1G86S.A86 


FILENAMES:  Pascal  *  MB. DIAG86S.TEXI 
CP/n  =  DIAG86S.CMD 

•«t:t*«>k**:4i***  **««*4i4t«*«**  V*««**«**«»*  ««****«*« 

0086  DIAGNOSTIC  TEST  PCS  PC/M  MBB-00  BUBBLE  MEHOBIES  » 


CCNFIGUSATION: 

HOST  -  Intel  86/12A  SBC.  20  address  lines,  MBS  system. 
Data  bus  on  86/12A  converting  to  low  8  bits 
all  high. 

MBB  '  interrupts  inhibited,  single-page  mode, 

20  address  lines. 


This  program  writes  and  then  reads  a  test  pattern  in 
each  page  of  each  bubble  chip  on  MBB-80  boards.  Error 
diagnostics  are  orinted  as  errors  are  found.  An  error 
leg  is  printed  at  the  end  of  each  pass.  Testing  is 
continuous  until  any  character  is  keyed  into  the  console. 


The  MBB-80  controller  base  address  is  reed  into  variable 
•ME  contbase' .  MBB-80  address  select  pins  must  correspond 
to  this  address.  This  program  uses  memory  mapped  I/O 
through  the  base  address. 

««**»«itt4i*>l>**4i4****«****«*»*««««*  4i»**«Wi«4i«*«****«***4i**«**«« 

Jeffrey  Neufeld  and  Michael  Hicklin,  CS-03,  Thesis  ♦ 


-*  Edos  function  numbers 
Bdcs_conbuf  equ  10 


Bdcs“oonout 
Bdcsiconstat 
Bdos_pstring 
Bdes  reset 


equ  2 
equ  1 1 
equ  " 
equ 


9 

0 


for  calls  * 

;console  input  string  funct  # 
: console  output  char  funct  # 
;get  console  status  funct  # 

; print  string  until  ’S*  funct 
;CE/M-86  reset  to  CCP  funct  # 


* 


;*  HEE  characteristics  ♦ 
MB  buflen  equ  18 

MBimaxdevs  equ  7 

MB_maxpages  equ  641 

ME_pagesize  equ  18 


; buffer  length  for  single  page 
; bubble  devices  are  #0-#7 
;#  of  pages  on  each  bubble  device 
; bubble  device  page  size 


;*  MBB  command  byte  masks 
MS  busy  check  equ  001000“ 
ME"init“cmd  equ 
MB“read“cmd  equ 
MH'reset  cad  equ 
MB"write“cmd  equ 


100000 
10000010E 
11000000E 
10000100E 


(with 
,  E 
IB 


interrupts  inhibited)  * 

;  cent  busy?  status  check  (20H) 

; initialize  the  controller  iSIH) 
;single-page  read  command  (328) 

;  reset  the  controller  (COH) 
;single-page  write  command  (84H) 


:*  Miscellaneous  e 
clank  equ 

corbuf  size  equ 
cr  equ 

If  equ 


3uates  ♦ 

20H  ; Ascii  blank 

80  ;size  for  input  buffer  for  console 

OdH  : Ascii  carriage  return  ccntrcl  char 

OaH  ; Ascii  line  feed  control  char 


*i»4****«4i«:(i««««3|i***4t***«***4t««*i4i«««*«4i4i»l|i««»**«««***4i***»*« 

*  MAIN  ESOGBAM  -  CRIVEB  * 

a********************************************************** 


CSSG 

5iaG86S:  call  Set  Op 

call  Get'Cont  Addt 
call  Inif  Con^ 

Test  loop: 

»  jm  ^  ^  MB 4. 


;do  initialization 

;get  address  of  MBB-80  base 

:rnit  the  cont  and  devices 


call  Get  Test  Buffer  :get  a  test  pattern. fill  buff 
call  Hri^e  Page  ;vrite  a  page  to  burble 

call  Read  Page  ;read  a  page  fros  babble 

call  ChecJf  Errors  ;checlc  errors  in  vrite/tead 
; advance  to  next  page  in  a  device,  see  if  last  page 
inc  curr  page  no  ;increBent  current  page 
cap  curr"page“nc ,MB  aaxpages-1  ;last  page  on  dev? 
jnz  Test"  ■  "  ^ — - ^ - 


"page"nc,MB  aaxpages-1  ;last  page  or 
"loop"  ”;if  not,  test  next  page 


V.  XWWK 

:was  last  page, advance  to  next  bubble  device  on  board 
BOV  OX, offset  Bsg  donebub  ;addr  of  done  bub  asg 
call  Print  String  "  ;write  asg  to  console 
cap  curr  lub  no, MB  aaxdevs  ;last  bubble  on  board? 
jz  Done"pass  "  ;if  sc,  done  with  a  pass 
;prepare  to  fest  next  bubble  device 

inc  curr  bub  no  ;if  net,  increaent  device  # 

aov  curr"page  no,0  ;set  page  number  bach  to  zero 
me  errpEr  "  ;ptr  tc  next  entry  (dev) 

jap  Test  loop  :go  test  next  device 

; finished  wifh  all  devices  on  board,  print  suaaary 
; prepare  to  run  another  pass  if  not  stopped  by  user 
Cene  pass: 

~  call  Error  Summary  ;print  error  summary 

call  End  Pass  ;end  of  pass  housekeeping 

;see  if  anything  keyed  in  at  the  console 

aov  CL,Bdcs  constat  ; function  i  for  Bdes  call 

call  Bdos  "  ;call  Edos  to  get  cons  status 

cap  AL,01  :01=chap  keyed  in,  OQsnothing 

jz  Done  test  ;soaething  Keyed,  user  guits 

;user  wants  To  continue 

BOV  DX, off set  asg  testing  :addr  of  testing  asg 
call  Print  String  "  ;write  asg  to  console 

jap  Test  loop  ;keep  testing 

;user  wanted"to  quit  the  testing 
Ccn€  « 

"  call  Close  Op  ;do  end  of  run  housekeeping 

BOV  CL, Bdos  reset  :f unction  #  for  Bdes  call 

aov  DL,0  "  {parameter  to  release  memory 

call  Bdos  {call  Bdos  to  terminate  prog 

■  end  of  Main  Pregraa  ♦*♦********♦♦♦♦*****♦*♦ 


;*  BDOS  {CPM/86)  subroutine  * 

{called  froB:  Close  Op, Main, Get  Cont  Addr, 

;  Print"String,  Putchar. 

Bdes:  {♦♦  entry  tc  Bdos  via  software  interrupt  224 

{**  para  in  -  caller  loads  regs  as  per  req 
•«*  parm  out  -  as  supplied  by  Bdos  returns 
int  224  {8085  software  interrupt 
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*  CHECK  ERBOfiS  subroutine  ♦ 

;call€d  froi:  Kain. 

Check  Errors;  ;♦*  see  if  read  what  was  written 
;**  parm  in  -  none 
;**  pan  out  -  none 

Dov  AL» pattern  ;pattern  to  accue  for  oanipul 

107  CZ,nB  buflen  ;counte7  for  loop  thru  buffer 

■07  BX, offset  test  buffer  ;index  into  test  buffer 


107 
107 
■  07 

lest  byte: 

cap 

jz 


rsx  1,  AL 
Good  test 


:coapare  buff  to  pattern 
:if  good,  check  next  byte 


push  AXipush  BXIpush  CX  ;sa7e  patt/kuff  addr/cntr 
call  Err  Out  ;it  is  bad,  print  error 

call  Log”Error  ;  log  error 

pop  CXipop  BXlpcp  AX  ; restore  cntr/buff  addr/patt 
Gcod_test ; 

inc  BX  ;increienr  index 

loop  Test  byte  ;dec  CX  and  loop  if  not  zero 

ret  " 

f 

;*  CLOSE  OP  subroutine  * 

:  ]k*3ti*««*««*]|i***«***«wi«**«*77*e***««««**«*«*«ee«***wi*e*«**«e* 

;called  froi:  Main. 

Clcse  Op;  reads  garbage  froi  console, issues  goodbye 

;♦*  para  in  -  none 
:♦*  para  out  -  ncne 

;clear  stop  input  characters  froa  the  console  buffer 
107  CL,Bdos  ccnbuf  ;input  console  string  func# 


107  CL,B 
107  BX.O 
107  byte 
107  OX,B 
call  Bdos 


; issue  the  goodbye  aessage 
call  Crlf  ;ski 


:load  paraaeter  r< 
;read  the  console 
ge 

;skip  extra  line 


size 

Bdos 


call  crit  t^xip  extra  line 

107  DX, off set  asg  endtest  ;addr  of  end  test  asg 
call  Print  String  "  ;writ€  asg  to  console 
ret 

*  CRLP  subroutine  ♦ 

icalled  froi;  Close  Up, Get  Cont  Addr, 

;End  Pass,lnit  Ccnt7Hain,Pfint  String, Set  Up. 
Crlf;  lends  carriage  return, line  feed  to  coffs 

;**  para  in  -  none 
:*♦  para  cut  -  ncne 

107  AL,cr  ;carriage  return  char 

call  Putchar  ;write  it  to  ccnsole 

B07  AL,lf  ;line  feed  char 

call  Putchar  ;write  it  to  console 


107  AL,cr 
call  Putchar 
B07  AL,lf 
call  Putchar 
ret 


’  *************************** 

END  PASS  subroutine  * 

•  At ******** ********************************** *************** 

;called  froa:  Main. 

End  Pass:  ;**  perforas  end  of  pass  housekeeping 

"  para  in  -  none 


;  con7 


;**  para  out  -  none,  effects  global  wars 
ert  oass  i  to  Ascii  and  print  after  pass  ae 


107  At, pass  no. 
call  Hex  To  Xscii 


;pass  Duaber  to  accua 
;ccn7ert  to  Ascii 


aessage 
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aor  BXfOffset  >sa  d  pass;addr  of  pass  i  is  asg 
BOV  bvte  pxr  [BX%dTI  ;load  high  byte  tc  asg 
inc  Bx  :Daap  to  next  position  in  asg 

BOV  byte  ptr  [BXj,DL  :load  low  byte  to  asg 
BOV  Dx, offset  asg  dcnepass  :addr  of  done  pass  Bsg 
call  Print  String  “  ;writ6  asg  to  console 
call  Crlf  ~  :s)cip  a  libe 

;inc  pass  nuabec  and  reset  all  variables  fcr  new  pass 
inc  pass  no  ;add  one  to  pass  nuaber 

BOV  newoass  flag.l  :set  new-pass  flag  cn 
BOV  curr  bu?  no,0  :reset  to  bubble  device  0 
BOV  curr"pagl  no.O  ;r€set  page  nuaber  to  0 
BOV  errp^r , offset  errlcg  ; reset  addr  of  error  log 
ret 


:  *]»«*4i«*«**«*«****»e**«3k«*«»»«*«*«*«««««vi*««»*«»tt«*«*«»4i**«« 

;»  2SR  OOT  subroutine  * 

;called  froa:  Check  Errors. 

Err  Out:  ;•*  issue  an  error  message  to  the  console 

para  in  -  BX  addr  in  buff  cf  byte  error 
para  out  -  none^  effects  global  vars 
push  BX  !  push  BX  ;save  addr  of  error  twice 

cap  newpass  flag^l  :is  this  a  new  pass  ? 

jnz  Prt  err”  ;if  net,  print  error  now 

aov  newpass  flag,0  ;turn  flag  off 
BOV  OX, offset  asg  header  ;loaa  addr  of  header 
call  Print  String  ;print  the  header 
;put  zeros  int?S  all  error  counts  in  the  log 

aov  CX,HB  aaxdevs^l  jeount  for  #  of  dev  to  loop 
BOV  BX, offset  errlog  ;addr  of  error  log 

Clr  log: 


Prt  err: 


aov  byte  ptr  [BX],0  ;clear  log  entry  error  count 
inc  BX  ;buBp  pointer  to  next  entry 

loop  Clr  log  ;dec  Cx  and  loop  if  not  zero 


aov  AL,curr  bub  no  ;bub  dev  #  to  accua 
call  Hex  To  Xscii  ;ccnve7t  tg  Ascii 
aov  Bsg~e  dev, OH  :aove  in  high  byte  to  asg 

aov  asg  e"dev+1 ,CL  ;aove  in  low  byte  to  asg 
;load  page  nuaber  of  error 

aov  AL,byte  ptr  curr  page  no-*-1:hi  by^e  cf  page# 

call  Hex  To  Ascii  Tconvirt  to  Ascii 

BOV  asg'e  page,CH  ;high  byte  to  asgfdig  1) 

BOV  asg  e'page'*^  1 ,0L  ;low  byte  to  asg  (dig  1) 
aov  AL,Eyf6  ptr  curr  page  no  :lo  byte  cf  page# 
call  Hex  to  Ascii  ;ccnvlrt  to  Ascii 
aov  asg~e  page^2,DH  ;high  byte  to  asg(dig  2) 


BOV  asg  e'page'*^  1 ,0L  ;low  byte  to  asg  (dig  1) 
aov  AL,Eyf6  ptr  curr  page  no  :lo  byte  cf  page# 
call  Hex  to  Ascii  ;ccnvlrt  to  Ascii 
aov  asg~e  page^2,DH  ;high  byte  to  asg(dig  2) 
BOV  asg  e~page-t-3  ,DL  :low  byte  to  asg  (dig  2) 
;compute  and^lbad  byte  offset  of  error  in  page 


BX  {restore  addr  err  byte  offset 

r  buff  equ  offset  test  buffer  ;fcr  ccaputation 


aov  AL, pattern 
call  Hex  To  Ascii 
aov  Bsg~e  wrote, CH 
aov  asg"e"wrote+1, DL 

pop  BX - 

aov  AL,CBX] 
call  Hex  To  Ascii 
aov  msg“e  fead,DH 
aov  asg~a”read+ 1 ,DL 


sub  ~'BX,addr  buff  ;coapute  err  offset  in  buff 
aov  AL,BL  “  {offset  to  AL  for  conversion 

call  Hex  To  Ascii  {convert  to  Ascii 

aov  asg"e  'Eyte,DH  {move  in  high  byte  to  asg 
BOV  asg~e'byte-*' 1 ,0L  {move  in  low  byte  to  asg 
{load  pattern  That  was  written  and  what  was  read  back 
aov  AL, pattern  {load  pattern  just  written 

call  Hex  To  Ascii  {convert  to  Ascii 
aov  Bsg~e  wrote, CH  {Bove  in  high  byte  to  asg 
aov  asg  e"wrote+1,DL  ;aove  in  low  byte  to  asg 
pop  BX  "  "  {restore  addr  or  err  offset 


restore  ac 


err  offset 


load  byte  just  read  back 
convert  to  Ascii 


conv 

move 

aove 


in  high, byte  to  asg 
in  xow  byte  to  asg 
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ir  n  « 


aov  DX,  offset  asg.err  ;addr  of  total  error  asg 
call  Print  String  ;ptint  the  error  aessage 
ret  " 

!  *««*«t«*«««*#**«*4i4i4t****«**«*e*«**e«««*»***«*«»*4i»*«4i****»«*k 

\*  ERROR  SOnaABY  subroutine  * 

:called  froa:  Bain. 

Error  Susaary:  ;**  outputs  suaaary  of  errors  on  each  device 
;**  para  in  -  ncne 
.«*  para  out  -  none 

■ov  OXfOxfset  asg  suaaary  ;addr  of  suaaary  asg 
call  Print  String  "  ;write  asg  to  console 
;step  thru  errlog-convert  to  Ascii  -  print  err  counts 
aov  CX,MB  aaxdevs'*'1  ;ccunt  for  loop  -  #  of  devs 
aov  BX, offset  errlog  ;addr  of  error  log 
■ov  DIrOffset  asg  counts  ;addr  of  asg  sua  counts 
prt  loop:  “ 

aov  AL,[BXJ  laet  count  froa  error  log 

push  BXlpusH  CXlpush  Dl  ;save  addr, counter, index 
call  Hex  To  Ascii  ;ccnvert  to  Ascii 
pop  DIl^pop  CX!  POP  tX  ;rest  index , counter ,addr 
aov  byte  ptr  [DIj^OH  :load  high  byte  to  asg 
inc  Oi  ;t)uap  to  next  pos  in  asg 

aov  byte  ptr  [DI],DL  :load  low  byte  to  asg 
inc  01  :buap  to  next  pos  in  asg 

aov  byte  ptr  £DI], blank  ; Ascii  blank  tg  asg 
inc  DI  :buap  to  next  cos  in  asg 

inc  BX  ;increaent  buff  addr  to  next 

loop  prt  loop  ;d6C  CX  and  loop  if  not  zero 

aov  OX, Offset  asg  counts  :addr  of  asg  sun  counts 
call  Print  String  “  ;writ€  asg  to  console 
ret 


GET  CONT  ADDH  subroutine  ♦ 

;called  froa:  Bain. 

Get  Cont  Addr:  ;**  gets  base  segment  address  for  the  MBB-80 
;**  controller  froa  the  user  at  the  console. 
;♦*  para  in  -  none 

.**  para  out  -  none,  updates  ME  contbase 
aov  DX, Offset  asg  getaddr  ;addr  of  get  cont  asa 
call  Print  String  ”  ;write  asg  to  console 
;get  base  address  keyed  in  by  the  user 

aov  CL,Bdcs  conbuf  ;input  console  string  fund 
■ov  BX, offset  cons  buff  ;area  for  cons  input 
aov  byte  ptr  [BX], conbuf  size  ;tell  Bdos  size 
aov  dX,BX  :load  para  for  Bdos  call 

call  Bdos  :read  rroa  console 

call  Crlf  A  line  after  input 

:aake  sure  only  four  digits  keyed  in 

aov  BX, offset  cons  Buff+1  ;bYte  1  tells  hov  aany 
cap  byte  ptr  CBX],^  ;see  if  exactly  four  read 
ine  Error  input  ;if  not  4,  error 

;aaice  sura  all  four  digits  are  valid  hex 

aov  BX, offset  cons  buff4‘2  ;byte  2  sfarts  data 
xor  AX, AX  ~  ;used  for  Ascii  table  index 

■ov  CX,4  ;nuaber  of  digits  to  check 

Oalddc 

aov  AL,rBX1  :aove  digit  to  AL  for  chking 

cap  AL,030H  ;check  to  see  if  tco  low 

jb  Error  input 

cap  AL,04^H  ; check  to  see  if  tco  high 

ja  Brror_input 

cap  AL,03^H  :chk  aid>invalid  (3aH-40H) 
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«  » 


Ibe 
cap 
lae 
laps 
Valid  hex; 
sub 
pash 
aov 

BOY 

pop 

90V 

me 

loop 

;  con vert 
mov 

BOY 
moY 
shl 
inc 
or 
inc 
aoY 
BOY 

shl 
inc 
or 

; store 
boy 


Valid  hex 
AL.OU'TH 
Valid  hex 
Error”input 


it  is  in  the  aiddle  >  error 


index 


AX,030H  ;-30H  to  get  table 

BX  ;saY€  buffer  addr 

BXfkl  :AX  is  index  to  table 

AL, Ascii  tableCBXj  ; table  look  up 
BX  “  ;restore  Buffer  addr 

byte  ptrfBXlfAL  ;  store  he^  baclc  in  buffer 
BX  :next  digit 

Check  valid  :go  checic  it 

4  valid  hex  digits  to  a  binary  nuaber  in  AX 
BX«offset  cens  ouff't-2  :byte  2  starts  data 
AH,rBX]  ~  ;get  first  digit 

CL, 4  ; shift  it  to  High  nibble 

AH, CL 

BX  ;increBent  index 

AH,[BX]  ;2nd  dig  or*ed  into  low  nibb 

BX  ;increBent  index 

AL,rBX]  :get  third  digit 

CL, 4  ;shift  it  to  nigh  nibble 

alIcl 

BX  :increBent  index 

AL,[BXJ  :4tb  dig  or'ed  in^o  low  nibb 

controller  base  address  that  was  built  in  AX 
HB  contbase,AX 

japs  Ge^  cont  ret  ; go  return 

; error  in  input, “issue  message,  retry 
Error  input; 

lov  OX, offset  Bsg  errinp  ;addr  of  error  aessage 
call  Print  String  ; write  asg  to  console 

call  Crlf  “  :slcip  a  line 

japs  Get  Cont  Addr  ; go  ask  again 

Get  cont  ret;" 
ret" 

GET  TEST  BUFFER  subroutine  * 

;called  frea:  Bain. 

Get  Test  Buffer:;**  increaents  pattern  and  loads  test  buffer 
"  ;**  para  in  -  none 

.**  para  out  -  none,  effects  global  vars 
pattern  ;add  one  (1)  to  pattern 

AL, pattern  ;pattern  to  accua  for  aanipul 

CX,Mb  buflen  :loop  counter  -  size  of  buff 

BX, offset  test  buffer  :set  index  inro  buffer 
rBX],AL  "  ;load  a  byte 

BX  ;buBp  index 

;dec  CX,  loop  if  net  zero 


Fill: 


me 
aov 
aoY 

BOY 

aoY 
inc 
loop  Fill 
ret 


*  HEX  TO  ASCII  subroutine  * 

;called  froa:  End.Pass.Erx  Out, Error  Suaa^ry. 
;**  converts  a  hex  nuaber  fo  its  hex  Ascii 


es 


Hex  Tc  Ascii:  .  _  _  _  _ _ 

"  ;*•  para  in  -  AL  has  hex  byte  to  cenvert 

:**  para  out  ~  DX  contains  hi&lo  Ascii  byt 
;conYert  lov  nibble  of  AL  to  Ascii  hex  digit 

BOY  AH,AL  ;save  hex  *  for  hi  nibble 

and  AL,0fH  ;clear  hi  4  bits  Ic  nibble 

add  AL,90H  :handles  0-9  (90Hf40H« 130H) 

daa  :deciaal  adjust 

adc  AL,40H  ;handle  a-fB  (41H-46H  Ascii) 
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daa 

oov 


_  Dt,ll 

; convert  high  nibble  of 
aov  AL.AH 
CL,  4 

AL,90H 


I  w  V 

!IS 


aov 
si 
ac 
daa 
adc 
daa 
oov 
ret 


AL,40H 
DH,  AL 


;deciaal  adjust 
:low  nibb4>9  Ascii  for  ret 
AL  to  Ascii  hex  digit 
;BOve  to  AL  for  daa  ops 
;set  count  for  shr  4 
:sbift  hi  nibble  to  lo  nibble 
;  handles  0-9  (90U-i>40Els  130H) 
:deciBal  adjust 
;handle  a-fS  (41H-46H  Ascii) 
;deciBal  adjust 
;high  nibble  Ascii  for  ret 


*:*«:<<***«**#4i**«*«««*«»«***«»4i«*«««*»»«»«4i«««»*«*«*4>**«**«4i* 

*  INIT  CONT  subroutine  ♦ 

«4*>|I3||***«*****  «***»«***«**«««*********»»***«*« 

;called  froo:  Main. 

Init  Cont:  ;*♦  inits  the  MEE  controller  and  each  device 

~  ;**  parB  in  -  none 

;**  parB  out  -  none 

BOV  DX, offset  Bsg  initbegin  ;begin  init  Bsg  addr 
call  Print  Str;.ng  “  ;writ€  nsg  to  console 
;initialize  page  size  and  aincr  loop  size 

BOV  AX, MB  contbase  :address  or  controller  base 
BOV  ES,AX'  ;load  ES  to  address  bubble 

BOV  AX, MB  Baxpages  ; pages  per  bubble  device 
aov  ES:P  loopsize  1o,aL  ;loopsize  low  byte 
aov  ES:P“loopsiZ6“hi,AH  ;loopsize  hi  byte 
BOV  ES:P~pagesize~reg,MB  pagesize; page  size  reg 
;  issue  reset  SOBaand  tZS  the  controller 

BOV  AL,MB  reset  cad  ;reset  aask  byte 
BOV  ES:P  cand  re9,AL  ; issue  reset  coaaand 
;initialize  each  bubble  device 


CX,n6  aaidevs-fl  ;count  for  loop-*  of  devices 
AL,0  ~  ;device  *  to  initialize 


aov 

BOV 

For  each: 

BOV  ES:P  select  bubdev,AL  ;select  each  device 
aov  ES:P~CBnd  reg, ME  init  cad  ;init  this  device 
push  AXIpilsh  CTIpush  IS  ;save  bubble  *, counter, ES 
call  Halt  :wait  for  controller  to  work 

pop  ES!  pop  CX!  pop  AX  ; restore  ES ,cntr, bubble  * 
inc  AL  ;next  device  nuaber 

loop  For  each  .  ;dec  CX,  loop  if  not  zero 

;issua  asgs  Indicating  in^t  done  and  test  in  progress 
aov  DXfOffset  asg  initend  ;init  done  nessage  addr 
call  Print  String  ~  ;writ6  asg  to  console 
call  Crlf  ~  ;skip  an  extra  line 

BOV  DX, offset  Bso  testing  ;testing  Bessage  addr 
call  Print  String  ;writ6  asg  to  console 
ret 

*****e*4ii»***e**e4i  ******** 

*  LOG  ERROR  subroutine  * 

*********************************************************** 

:called  fron:  Check  Errors. 

Leg  Error:  ;♦*  log  the  error  for  use  in  pass  printout 

;**  para  in  -  none 

**  para  out  -  none,  effects  global  vars 
;addr  of  error  log  to  BX 


aov 

inc 

Inz 

dec 

dene  log: 

ret 


- \ 

BX,errptr 
byte  ptr  [BX] 
done  log 
byte"ptr  [BX] 


;add  one  to  error  count 
:if  not  overflow,  all  done 
:inc  too  big,  reduce  to  aax 
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«  * 


.*4«««««4i*«*4>*«****«**«*«*«*»«*«««*««««)t>**«»*****»*«*»*«*«4>« 

[>*  PRINT  STRING  subroutine  * 

;  A************************ «»*«««* *««««*9«**e**««*«*»*«*»*«** 

;called  frou:  Close  Up,End_Fass, Err  Out. 


Print_String; 


;called  froe:  Close  Up-End  Pass, Err  Out. 

;  Error“SuaBar7rGet  ConT  Ador, 

;  Init  Cent, Ham, Sel  Op. 

:  ;**  prints  buffer  Iddressed  until  *S'  hit 

;*4i  para  in  -  address  cf  buffer  in  DX 
:**  para  out  -  none 

V  CL,Baos  pstring  ;function  #  for  Bdes  call 
11  Bdos  ~  ;call  Bdo$  and  print 

11  Crlf  :sicip  a  line 


;sicip  a  line 


*«**«>  «««*«*«*  ee**««**-«««*»*e«**««**e*e********* 

POTCHAR  subroutine  * 

«««**«*«*  a  *********** 

;called  froa:  Crlf. 

Putchar;  ;♦*  writes  character  froa  AL  to  console 

para  in  -  output  char  in  AL 
:**  para  out  -  nene 

ao7  CL, Bdos  conout  :f unction  t  for  Bdes  call 
ao7  0L,AL  ~  ;load  char  to  Bdos  reg 

call  Bdos  ;call  Bdos  and  send 

ret 


;  select 

007 

107 

007 

007 

007 


*«*«*  «»«*««*««*****«*«*«*«*« 

*  READ  PAGE  subroutine  * 

**«««**«*«*«««  ik)ii4t**a««««******4i*e«*»««««»«4ie*4i**e*«*«***e«* 

;called  froa:  Rain. 

Read  Page:  ;**  reads  a  page  into  test  buffer  froa  bubble 

;♦*  para  in  -  none 

;♦*  para  out  -  ncne,  effects  global  7ars 
; select  page  nuaber 

107  AX,HB  contbase  .'address  of  controller  base 
107  ES,AX'  ;load  ES  to  address  bubble 

107  AX,curr  page  no  :current  page  nuaber  testing 
107  ES:P  pagesel  lp,AL  mage  select  lo  byte 
107  ES: P~pagesel'*hi,AH  ;page  select  hi  byte 
;sel9Ct  babble  de7ice  and  issue  read  coaaand 

107  AL,curr  bub  no  ;curr  bubble  nuaber  testing 

107  ES:P  seIect~bubde7,AL  ;select  current  de7  I 
107  ES:P~cand  reg,H6  read  cad  ;issue  read  PI?0 
push  ES,  "  "  Tsaye  ES 

call  Halt  jwait  tor  controller  to  woric 

pop  ES  :restore  ES 

;read  froa  NBB  FIFO  buffer  into  test  bu  >er 

107  CX,HB  buflen  :ccant  for  iooc-bgffer  size 

107  BX, offset  test  buffer  :set  index  into  buffer 
Read  byte:  “ 

~  107  AL,ES:P  rdata  reg  ;read  a  byte  into  accua 

107  rBX],AL~  ~  ;^cad  accua  into  buffer 
inc  BX  ;increaent  index 

loop  Read  byte  ;dec  CX,  loop  if  net  zero 

ret 


»ush  ES, 
:all  Halt 


CX,HB  buflen  :ccant  for  iooc-bgffer  size 
BX, offset  test^buffer  :set  index  into  buffer 


SBT_OP  subroutine 


Set.Opi 


;called  froa:  Rain. 

inits  7ariables  and  issues  signon  asg 
;*•  para  in  -  none  ^  , 

:**  para  out  >  none,  effects  global  wars 
call  Crlf  ;skip  an  extra  line 

call  Crlf  :slcip  an  extra  line 

■07  OX, offset  asg  signon  :signon  asg  address 
call  Print  String  ;write  asg  to  console 
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«  -IT 


lov  ox, offset  Bsg  version  ; version  nsg  address 
call  Print  String  “  ;vrite  asg  to  console 
call  Crlf  ;skip  an  extra  line 

;inirialize  all  variables  and  f^ags 

nov  newpass  flag.1  ;flag  indicating  nee  pass 
curr  buB  no,0  ;carrent  bubble  i  to  0 

curr  pagS  nc,0  ^current  page  #  to  0 

pattern,  1  ; initial  test  pattern  is  1 

pass  no,1  ;initial  pass  I  is  1 

errpITr, offset  errlog  ;addr  of  error  log 


no  V 
aov 
■  ov 
aov 
aov 
ret 


*  WAIT  subroutine  ♦ 

*  1|  m  #  3|I)}K  iH  «  *  3*  *  ^  *  4  4|  Hi «  «  «  1|||^  4 


Wait: 


mov 

nov 

See  zero: 

”  nov 
and 

jz 

Cent  bus7: 

”  nov 
and 
inz 
ret 


;called  fron:  Init  Cont^Pead  Page,tirite  Page. 
;**  checks  status  of  I!?B  confrcller  for"busy 
keeps  checking  (wait)  until  not  busy 
parn  in  -  none 
parn  out  -  none 

AX/HB  contbase  :address  of  controller  base 
ES,AX~  ;load  £S  to  address  bubble 

AL,ES:P  status  reg  ;get  status  register 
AL,NB  busy  check  ;is  it  all  zeros  ? 

See_zero  ~  ;if  so, keep  checking  for  one 

AL,ES:P  status  reg  ;ge'p  status  register 
AL,!1B  busy  check  ;see  if  busy,  and  to  aask 
Cont  Busy  ”  ;if  busy,  check  again 


*««***»**  «*«*«*«««  *«*****e***ee**««**ee«eeee**e**eee«w>*««* 

WRITE  PAGE  subroutine  * 

e****4iee**ee**«*«e*n«3iie*«e«*e**«e*«we**«**»*««****e»»4t**«* 

;call€d  froa:  Bain. 

;**  writes  a  page  froa  test  buffer  to  babble 
;**  para  in  -  none  " 

.««  parn  out  -  none 
)age  nuaber 

Aa,BB  contbase  ^address  of  controller  base 
ES,AX~  ;load  ES  to  address  bubble 

AX, curr  page  no  :current  page  *  testing 
SS:P  pagesel'lg, AL  ; page  select  Ig  byte 
ES:P~pagesel~hi,AH  ;page  select  hi  byte 
;writa  froa  tSst  buffer  into  the  MBB  FIFO  bufrer 

nov  CX,HB  buflen  ;ccunt  for  loop-buffer  size 
BX, off set  test  buffer  ;set  index  into  buffer 


Write_Page: 

;select 

aov 

aov 

aov 

aov 

aov 


nov 

Write  byte: 
“  nov 
aov 
inc 


AL,rBX]  jbyte  froa  buffer  tc  accua 

ES:P  wdata  reg,AL  ;write  a  byte  to  NBB  FIFO 

_  BX  :increaent  index 

loop  Write  byte  ;dec  CX,  loop  if  net  zero 

;select  bubble'nuaber  and  write  FIFO  buffer  to  bubble 
BOV  AL,curr  bub  no  ;load  accua  w/  bub# 
aov  ES:P  seIect~babdev,AL  ;load  bubble  device  # 
aov  ES:P~cand  reg,BB  write  cad  ; issue  write  FIFO 
call  Wait"  "  Twait  lor  controller  to  work 

ret 


DATA  SEGBENT  AREA  * 

OSEG 
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org  0100H 


; leave  rooa  for  base  page 


•Variables - 


Ascii  table 


cons  buff 
curr"bab  no 
curr"page  no 
errlog 
errptr 
HB  contbase 
neupass  flag 
pass  no" 
pattern 
.est  buffer 


00H,01 B,02H,03H,OaH,05H,06H,07H,OdH,09H 
7  ;for  Ascii  3aH  to  40a  -  invalid 
Oail.5be,OcH,OdH,OeH,OfH 
conbuf  size  ;area  for  cons  string  input 
1  ;bubble  device  *  0~7  testing 

1  :babble  page  nuaber  testing 

MB  aazdevsei  ; table  for  dev  error  count 
1  "  ; pointer  to  errlog  -  index 

OOOOH  ;case  segsent  add?  for  i!BB-80 

1  ;flag  fcr  indicating  new  pass 

1  ;pass  nuaber 

1  ;test  pattern 

BE  buflen  ; buffer  to  hold  test  data 


asg^counts 

asg  dcnebub 
Bsg"donepass 
asg_d_pas3 

asg_endtest 

asg  err 
Bsg_e_dev 


string  data  area  for  console  messages 

rb  ((MB  Baxdevs+ 1)  *3) 
db  ‘i*  " 

db  '  Done  with  a  bubble. $' 

;  db  'Done  Hith  PASS  ' 

i  rb  2 

db  •$' 

db  '♦Oser  terminates  testing...' 
db  'returning  to  CP/MIS' 


Bsg_e_page 

Esg_e_byte 

asg_e_wrote 

■sg_e_r9ad 

asg_errinp 

asg_getaddr 


asg  header 
asg"initbegin 
asg“initend 
Bsg~signon 

asg  suoaary 
asg^testing 

msg_version 


•  $• 

•**EBBCH;  not  exactly  4  digits  entered,' 

'  or.  invalid  hex  digits! IS' 
cr,lf.'Key  in  4  digit  segment  base  addr* 
'ess  rcr  MBB-QO  ccntfoller. ' .crTIf 
JMust^be  in  hex  (4  digits,  then  CB  only)' 

'Bubble  Page  Byte  firote  Beads ' 
'Initializing  the  controller...!* 

'Controller  is  initialized.!* 

•  • 

MBB-80  CP/H-86  DIAGNOSTIC  TEST  »»$' 
'Total  errors  for  each  device  (0-7) ;S* 


Total  errors  for  each  device  (0- 
Testing. . . Hit  any  char  {&  CB!)  ' 
to  stop  after  this  pass.!' 

Single-Page  Mode  Version  1.0S' 

:GENCM0  to  fill  last  address 


*«e**«««*««3ii«**  and  of  variables  4i**a»4i**4i)ii4i*«**«*«*«****«4> 

SSE6 

*>  MBB-SO  COMTBOLLEB  AND  POBTS  • 


^  pagesel  lo 
PZpsqese  IZ’ni 


:1s  byte  for  page  select,  (0) 
;ws  2  bits  for  page  select,  (1) 
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► 


P  cand  rsg  rb 

P'rdata  rag  rb 

P"adata  reg  rb 

P"statas  rag  rb 

P“Fagecnf  lo  rb 

P“cag€cnt~ai  rb 

P^locpsize  lo  rb 

P~lccpsize  hi  rb 

P  pagasize  reg  rb 

“  ”  rw 

P  select  babdev  rb 

P”int  flag  egu 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

P 


select  bubdev 


coaaand  register,  (2) 
read  data  register,  (3) 
write  data  register,  (4) 
status  register,  (5) 

Is  byte  for  page  counter, j6) 
as  2  bits  for  page  cntr,  (7) 
is  byte  for  ainor  Icop  sz, (8) 
as  2  bits  for  air 
intecnsl  use(pag4 
page  size  regist( 

TI  use  only,  (D»E) 

■  -  bubble  dew  (f) 

interrupt  flag  (P) 


page  cntr,  (7) 
.nor  loop  sz, (8) 
sin  loop  sz, (9) 
>age  pcsf  .  (A, 8) 
LSter,  (C) 


two  uses:  Sel  bu 


*♦*♦•***•*  end  of  Controller  and  Port  definitions  **♦•*••*♦ 


*  End  of  Prograa  DIAG86S  ♦ 

END 
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AifSIiJH  S 

PBOGBAH  LIST1H6  OF  DIA68611.A86 


FILENAMES:  Pascal  »  MB. 0IAG86M. TEXT 
CP/N  »  CIAG86M.CM0 

*«**«*«**«*«»«*4i**««***«4i»«*«»«*«4i««4i»»«««««««««»*4i*«»***** 

8086  DIAGNOSTIC  TEST  PCR  PC/M  HEE-80  BOBBLE  MEMORIES  * 

A********************************************************** 


CCNFIGORATION: 

HOST  -  Intel  86/12A 
Data  bus  on 
all  high. 

HBB  -  Interrupts  ei^abled  if  using  vectored  interrupts. 
Interrupts  disabled  bv  disconnecting  the  inter¬ 
rupt  juaper  on  the  MBb  board  if  net  vectoring 
interrupts.  Multi-page  aede,  20  address  lines. 

This  prograa  writes  and  then  reads  a  test  pattern  in  each 
sector  or  each  bubble  chip  on  MBB-80  boards.  Error 
diagnostics  are  printed  as  errors  are  found.  An  error  log 
is  printed  at  the  end  of  each  pass.  Testing  is  continuous 
until  any  character  is  keyed  into  the  console. 

The  HBB-BO  controller  base  address  is  read  into  variable 
'HE  contbase' .  MBB-80  address  select  pins  must  correspond 
to  ^his  address.  This  program  uses  memory  napped  I/O 
through  the  base  address. 

Jeffrey  Neufeld  and  Michael  Hicklin,  CS-03,  Thesis  * 


SEC.  20  address  lines,  MBS  system, 
86/12A  converting  to  low  8  bits 


=•  Edos  function  numbers 


Bdes  conbuf 

Bdos~conout 

Bdcs~constat 

Bdcs“pstring 

Bdos~reset 


10 

2 


equ 
ecu  ^ 
equ  11 
equ  9 
equ  0 


for  calls  * 

;console  input  string  function  i 
;conscle  output  char  function  i 
:9et  console  status  function  # 

; print  string  until  function 
;£P/M-86  reset  to  CCP  function  ♦ 


« 


;*  8259a  PIC  port  assignments 

PICpO  equ  OcOh  ;a259a  port  0 

PICpI  equ  0c2H  ;8259a  port  1 


;*  MEB  characteristics  * 


MB  buflen 
ME“int  mask 
MB“int~type 


equ  1U4 
equ  1111110 
equ  17 


MB  nazdevs 

nB~aaxpages 

HB'maxsectors 

HB~paqes  sac 

HB“paqesIze 

HB“skew 


equ  7 
equ  641 
equ  8  0 
equ  8 
equ  18 
equ  12 


jbuffer  length  for  sector 
1E  ;mask  to  enable  MBB  interrupt 
;type  16  is  IBO  as  defined  to 

;§259a  PIC  in  BOM  init.  MBB  will 
;|enerate  interrupts  over  this 

: bub^Se'devices  are  #0-17 
:*  of  pages  on  each  bubble  device 
:*  of  log  sectors  on  each  bub  dev 
:*  of  pages  per  logical  sector 
; bubble  device  page  size 
:skew  for  page  translation 


f 
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4r  CD  Oi  03  CD  CD  0)09  ID  «  >-1  O  M  M  «n<^i  0) 

•»z:x3s:k>'z:cs  ••••oq  u  > 


HBE  coaaand 
^usv  check 
init“cad 
Int  Inhibit 
chklnt  mask 
Bulti  paqe 
read  Sad 
resef  cad 
‘erite'cad 


aasks  and  status  aasks  * 


equ 

egu 

equ 

equ 

equ 

equ 

equ 

equ 


OOlOOOOOe 
0000000  IE 
10000000E 
10000000E 
00010000B 
0C010010E 
01000000B 
00010100E 


cent  busy?  status  check  (20H) 
^.nit  th$  controller  (01H) 
int  inhib^t/reset  aask  (BOH) 
aask  testing  if  int  set  (80H) 
Bultl'page  node  coaaand  (10H) 
aulti'page  read  coaaand  (12H) 
reset  the  controller  (40H) 
aulti-page  write  coaaand  (14B) 


Hiscellaneous  equates  * 


ack 
nbuf_size 

ue 

Ise 

ctored  int 


egu  020H  :Ascii  blank 

equ  80  :size  for  input  buffer  fer  console 

equ  OdH  ; Ascii  carriage  return  cent  char 

equ  -1  ;for  conditional  asseably 

equ  net  true  ;fcr  conditional  asseacly 
equ  OaH  ;Asgii  line  feed  control  char 
egu  false  ;this  ccntrols  the  asseably. 


;true=use  hafd  int 
;false=poll  int  re 


errupt  to  CPU. 
eg  on  NEB. 


:*«4i4i««*#1i««4ie*««*****«4>*4i«««*«*««*»«*«4t***t**’t>*’^**e***4>**** 

MAIN  PROGRAM  -  ERIVER  ♦ 

.  ife4«*«««*««4i««*e***««***4t4i««4i**«**e*********«4i***««*****4i**« 


CSEG 


DIAG86H: 


call 
call 
call 

Test  loop: 

call 

call 

call 

call 

;ad7ance 


Set  Op 

Get"Cont  Addr 
Ini^  Coni 


;dc  initialization 

;get  base  address  fer  MBB-80 

;init  the  cont  and  devices 


Get  Test  Buffer 
Hri^e  Sector 
Read  Sector 
ChecTc  Errors 
to  next  sector 
curr  sector  no 


;get  test  pattern,  fill  buff 
;write  a  sector  to  bubble 
;read  a  sector  froB  bubble 
{Check  errors  in  write/read 
in  device. see  if  last  sector 
inc  curr  sector  no  lincreaent  current  sector  # 
cap  curr“sector"no,ME  Baxsectors  ; last  sector  ? 
jnz  Test'loop  ”  ;if  not.  test  next  sector 

;was  last  sector, advance  tc  next  bub  dev  on  board 
BOV  DX, offset  Bsg  denebub  ;addr  of  done  bub  asg 
call  Print  String  ~  ;write  asg  to  console 
cap  curr  Bub  no, MB  aaxdevs  ;last  bubble  on  board? 
jz  Done"pass  "  :if  sc,  done  with  a  pass 
{prepare  to  Best  next  bubble  device 

inc  curr  bub  no  :if  net,  increment  device  * 

aov  curr“secBcr  no,0  ;set  sector  i  back  to  zero 
inc  errpBr  “  ;ptr  tc  next  entry  (dev) 

jap  Test  loop  ;go  test  next  device 

{finished  wiBh  all  devices  on  board,  print  suaaary 
{prepare  to  run  another  pass  if  not  stopped  by  user 
Cene  pass: 

Error  Suaaary  {print  error  suaaary 

End  Piss  {end  of  pass  hcusekeeping 

anything  keyed  in  at  the  console 
CL,Bdos  constat  {function  »  for  Bdes  call 


call 
call 
{see  if 
aov 
call 
cap 

jz 


Bdos 
AL,01 
Done  test 


user  wants  Bo  continue 


{call  Bdos  to  get  cens  status 
{Ol^cbar  keyed  in,  00-nothing 
{Something  keyed,  user  quits 

of 


aov  DX, offset  asg  testing  {addr  of  testing  asg 
call  Print  String  "■  {write  asg.  to  console 


jap  Test  loop 
{User  wanted  to"quit  the 
Cone  test: 

call  Close  Up 
aov  CL,BdBs  reset 


,  ;jjeep 
testing 


testing 


{do  end  of  run  housekeeping 
{function  t  for  Bdes  call 
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mov  DL,0  :paraaeter  to  release  aeaocy 

call  Bdo.s  ;call  Edos  to  terainate  prog 

♦  ♦♦*»******>»i******  end  of  Main  Prograa  ♦****♦*♦**♦•****••♦* 


;*  BOOS  (CP/H-86)  subroutine  * 

.*  I#  **«***#«*«**  *4i*««**«««*4«*»«44i**»«**4i4i««**:M*****»««**««* 

;called  froa:  Close  Bp,  Get  Cont  Addr«  Main, 

;  Print~Stting,“PutcEar . 

Bdcs;  ;**  entry  to  Bdos  via  software  interrupt  224 

;«*  para  in  -  caller  leads  regs  as  per  reg 
:**  para  out  -  as  supplied  by  Edos  returns 
int  224  ;808o  software  interrupt 

ret 


**«4i***>ii*«3ii**e*4i**e*«e**e**eee»e****ee««*«e9ii*4tee«ve«**ee«** 

*  CHECK  ERBOES  subroutine  ♦ 

I#  e  e  *****  4i*e*ae*4i*  ******* 

;called  froa:  Main. 

;**  see  if  read  what  was  written 
j**  para  in  -  none 
:♦*  para  out  -  none 

AL, pattern  :pattern  to  accua  for  aanipul 

CX^MB  buflen  ;coar.te;:  for  ^oep  thru  buffer 

BX, offset  test  buffer  ;index  into  test  buffer 


Check  Errors: 


BOT 

BOV 

BOV 

lest  byte: 

CBp 

push 

call 

call 

Good  tes??^ 
inc 
loop 
ret 


rBX],AL 
Good  test 
AXipush  BXIpush 
Err  Out 
Log“Brror 
cxrpop  BX!pop  AX 

BX 

Test_byte 


;cCBpare  buff  to  pattern 
:if  good,  check  next  byte 
CX  ;save  patt/buff  addr/entr 
:it  is  bad,  print  error 
;  log  error 

; restore  entr/buff  addr/patt 


;increaent  index 
;dec  CX  and  loop 


if  not  zero 


Clcse_0p: 


A********************************************************** 

*  CLOSE  OP  subroutine  -  * 

«*«*****************a**** ************** A******************* 

;called  froa:  Main. 

;*«  reads  garbage  from  console , issues  goodbye 
para  in  -  none 
:**  parm  out  -  none 

stop  input  characters  froa  the  consgle  buffer 
CL, Bdos  conbuf  ;input  console  string  fund 
BX, offset  cens  buff:area  for  cens  input 
byte  ptr  [BX], conbuf  size; tell  Bdos  buff  size 

_  DX,BX  ;lca9  paraaeter  reg  for  Bdos 

call  Bdos  ;read  the  console 

; issue  goodbye  aessage 

call  Crlf  :skip  extra  line 

BOV  DX, offset  asg  endtest  :addr  of  end  test  asg 

call  Print  String  “  ;writ6  asg  to  console 
ret 


; clear 

BOV 

BOV 

BOV 

BOV 
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;*  COSPUTE  PAGEHO  subroutine  ♦ 

.'«  «>*«««  **«  ««***«*4I«  *«*««*  ]***««««*«»  *»e4t««4i4i««e4i*«*e«4i***««4i 

;call€d  froD:  Read  Sector,  Write  Sector. 

Coepute  Paqeno:  ;♦“*  computes  1st  page  #  for  a  given  sector 
;♦*  para  in  -  none,  works  on  curr  sector  no 
:**  parm  cut  -  none,  updates  curr~page  n5 
xor  AX, AX  :set  AX  to  zero  ~  ~ 

cap  AL,curr  sector  no  :is  it  sector  0  ? 
iz  store  page  :ir  so,  no  translation 

xor  CX,CX”  ;clear  CX  for  counter 

aov  CL, curr  sector  no  ;cntr  for  translate  loop 


xor  AX, AX 
cap  AL,curr 
1z  store  pa 
xor  CX,CX“ 
aov  CL, curr 
Add  skew:  ~ 

add  AX, MB  skew 
clc 

sbb  AX, MB  aaxpages 
•jae  Dec  sector 
add  AX,!!B  aaxpages 
Cec  sector: 

Loop  Add  skew 
Stcrs_page: 

aov  curr  pag 
ret  " 


;i  of  pages  between  sectors 
;clear  carry 
;aod  tc  A  or  pages 
;jump  if  positive  (CF=0) 
;went  neg,  add  back  #  pages 


AX,MB_aaxpages  ;went  neg,  ada  back  e  pages 
Add_skew  ;dec  sector  #,  add  skew  again 

curr_pag€_no , AX  ;store  page  number 


.  *  *****  ******  ***e*»**«***«*:p«4(*e4>¥«*  *««***««*** 

;*  CSLP  subroutine  * 

.*********************************************************** 

;called  froa;  Close  Op,  Get  Cont  Addr, 

;End  Pass,Init  Cont, Main, Print  Siring, Set  Op. 
Crlf:  ;**  sends  carriage  return, line”feed  to  cons 

.**  para  in  -  none 
:**  para  out  -  none 

aov  AL,cr  :ca7riage  return  char 

call  Putchar  ;wfit6  it  to  console 

aov  AL,lf  ;line  feed  char 

call  Putchar  ;write  it  to  console 

ret 


*********************************************************** 
*  END  PASS  subroutine  ♦ 

********** *************** ********************************** 

;called  froa:  Main. 

nd  Pass:  perforas  end  of  pass  housekeeping 

para  in  -  none 

.**  para  out  -  none,  effects  global  vars 
;convert  pass  ♦  to  Ascii  and  print  after  pass  message 
aov  AL,pass  no  ;pass  number  tc  accua 

call  Hex  To  Iscii  ;convert  to  Ascii 
aov  BX, offset  asg  d  pass:addr  of  pass  I  in  asg 
aov  byte  ptr  [BXjTDH  :load  high  byte  tc  asg 
inc  BX  :buap  to  next  position  in  asg 


;convert 

aov 

call 

aov 

aov 

inc 

aov 

aov 

call 

call 

;inc  pass 
inc 
aov 
aov 
aov 
aov 
r  St 


byte  ptr  [BX],DL  ;load  low  byte  to  asg 
0X,of rset , asg_dcnepass  ;addr  of  done  p 


Print  String  “  ;writ6  asg  to  console 
Crlf  ~  A  line 

number  and  reset  alx  variables  for  new  pass 
pass  no  :add  one  to  pass  number 

newpass  flag.l  ;set  new-pass  flag  on 
curr  tuB  no,0  ;raset  to  bubble  device  0 
curr"seclcr  r.o,0  :  reset  sector  number  to  0 
errpir ,of fsit  errlog  ; reset  addr  of  error  log 


pass 
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»  »  « 


«]>*****«*  *41 9k  41* 

*  ERR  OUT  subroutine  * 

«44tik4>4>4>4>4t9«4>4>*4i4iki)k*4r*4i*9k*4i4i»4i*4i***4i4i4i**4i*«*4i)k«**>k*»****4i4i4>4i* 

;called  from:  Checic  Errors. 

Err  Out;  ;*♦  issue  an  error  lessage  to  the  console 

;**  parm  in  -  SX  addr  in  buff  of  byte  error 

•  *9k  n;iT*n  nil*  —  nnno.  cf-fcnrs  nlnhai  »ars 


;♦*  pars  out  - 
push  BX  !  push  BX 
cap  nevpass  flag,1 
int  Prt  err“ 

SOT  newpass  £lag,0 


;X  addr  in  ouff  of  byte  errc 
none,  effects  global  rars 
;saTe  addr  of  error  twice 
;is  this  a  new  pass  ? 

;i£  not-  print  error  now 
:tarn  flag  off 


SOT  newpass  flag,0  :tarn  flag  off 
aov  DX, offset  nsg  header  ;load  addr  of  header 
call  Print  String  “  ;print  the  header 
;put  zeros  int?  all  error  counts  in  the  log 

aov  CX,aB  maxdevs+1  ;count  for  i  of  dev  to  loop 
mov  BX, offset  errlog  ;addr  of  error  log 

Clr  log: 

aov  byte  ptr  [BX],0  ;cl9ar  log  entry  error  counx 
inc  BX  ;buap  pointer  to  next  entry 

;dec  CX  and  loop  if  not  zero 


Prt  err: 


inc  BX 
loop  Clr_log 


aov  AL,curr  bub  no  ;bub  dev  #  to  accua 
call  Hex  To  Tscii  ;conv6rt  to  Ascii 
aov  Bsg~e  dev, OH  ;aove  in  high  byte  to  asg 

aov  asg~e~dev*1 , CL  ;Bove  in  low  byte  to  asg 
;load  page  ntiaBer  of  error 

aov  AL,byte  ptr  curr  page  nO'«>l;hi  byte  of  page* 
call  Hex  To  Ascii  Tconvirt  to  Ascii 
mov  asg~e  page,CH  ;bigb  byte  to  Bsg(dig  1) 
aov  asg  e'page*  1,DL  ;low  byte  to  asg (dig  1) 
aov  ALrlyfe  ptr  curr  page  no  ;lo  byte  of  page# 
call  Hex  To  Ascii  Tccnvert  to  Ascii 
aov  asg~e  pag€4'2,0H  :high  byte  to  asgfdig  2) 
aov  asg2e"page+3 ,DL  :low  byte  to  asg (dig  2) 
;coapute  and  load  byte  offset  of  error  in  page 

pop  BX  :restore  addr  err  byte  offset 

addr  buff  egu  offset  test  buffer  ;fcr  computation 
sub  '~BX,addr  buff  ;coapute  err  offset  in  buff 
aov  AL,3L  ”  ;offset  to  AL  for  conversion 

call  Hex  To  Ascii  ;conv€rt  to  Ascii 

aov  msg"e  fyte-DH  ;aove  in  high  byte  to  asg 

aov  asg“e“byt 3+ 1  ,DL  ;aove  in  low  byte  to  asg 

;load  pattern  that  was  written  and  what  was  read  back 
aov  AL, pattern  ;load  pattern  just  written 

call  Her  To  Ascii  ;ccnv6ft  to  Ascii 

aov  msg~e  wrote, CH  ;acve  in  high  byte  to  asg 

aov  asg'"e"wrote*1,DL  ;aove  in  low  byte  to  asg 
pop  BX  “  "  ;restore  addr  or  err  offset 

aov  AL,CBX]  ;load  byte  just  read  back 

call  Hex  To  Ascii  :convert  to  Ascii 


high  byte  to  asg 
low  byte  to  asg 


aov  msg  e  wrote, CH 
aov  asg-e'wrote* 1 , 
pop  BX  “  " 
aov  AL,[BX] 
call  Hex  To  Ascii 
aov  asg'e  read, OH 
aov  asg  e"read* 1 ,D 
aov  OX, “offset  asg 
call  Print  String 
rat 


:convert  to  Ascii 


H  ;acve  in  high  byte  to  asc 
,DL  ;aove  in  low  byte  to  asg' 
sg  err  :addr  of  total  error  a 
“  ;print  the  error  aessage 


4i**9k*ik**9k*ik4t*4»k4i4i«4i*4>ik«4i**4i*4i*«*4t«****4i***4i*4t*4i**>k**»4i4i*4i* 

ERROR  SOMHAEI  subroutine  * 

*«****4i«4i4i*4i4i*«*4i*«a*4i4i«4i*4i**4i4i4i4i4i4i*4i«*4i**4i4nk*****4i4i*4i4i4i4i* 

;called  froa:  Main. 

Error  Suaaary:  outputs  suaaary  of  errors  cn  each  device 

”  ;♦*  para  in  -  none 

para  out  -  none 

aov  OX, Offset  asg  suaaary  ;addr  of  suaaary  asg 
call  Print_string  ”  ;write  a$g  to  gonsole 
;step  thru  errlcg-convert  to  Ascii  -  print  err  counts 
aov  CX,HB  aaxdevsf’l  ;ccunt  for  loop  -  t  of  devs 
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acv 

lOT 

loop: 

lOV 

pash 

call 

pop 

aov 

inc 

aoT 

inc 

nov 

inc 

inc 

loop 

aov 

call 

ret 


BX« offset  errlog  ;addr  of  error  lo 
DI, offset  asg_counts  :addr  of  asg 


of  asg  SUB  counts 


AL,C  3X  1 

Bx! pusfi  CX! rush 
Hex  To  Ascii 
DI!"pop  CX!  cop 


:get  count  froa  error  log 
01  :save  addr, counter, index 
;convert  to  Ascii 
BX  ;rest  index, counter, addr 


01!  pop  CXI  cop  BX  ;rest  index, counter, addr 
bvte  ptr  tOIj,DH  :load  high  byte  tc  asg 
Oi  :bUBp  to  next  pos  in  asg 

byte  ptr  C0I],DL  :load  low  byte  to  asg 
Oi  ;ouBp  to  next  pos  in  asg 

byte  ptr  [01], blank  ; Ascii  blank  tg  asg 
Oi  ;buBp  to  next  cos  in  asg 

BX  ;increBent  buft  addr  to  next 

prt  loop  ;aec  CX  and  loop  if  not  zero 

DX, offset  asg  counts  :addr  of  asg  sua  counts 
Print  String  "  ;write  asg  to  console 


GET  CCNT  ADDR  subroutine  * 

:called  from:  Hain. 

Get  Cent  Addr:  ;*'*  gets  base  segaent  address  for  the  HBB-80 
~  ;♦*  controller  froa  the  user  at  the  console. 

;♦’*  para  in  -  none 

para  out  -  none,  updates  HB  contbase 
BOT  DX, offset  asg  getaddr  ;addr  of  get  cont  asg 
call  Print  String  ~  ;vrite  asg  to  console 
:get  base  addfess  keyed  in  by  the  user 


user 


aov  CL,Bdos  conbuf  :input  console  string  func* 

aov  BX, offset  cccs  buff  ;area  for  cons  input 
BOV  byte  ptr[ BX  ], conbuf  size  ;tell  Bdos  size 
aov  DX,BX  ;load  para  for  Bdos  call 

call  Bdos  ;read  froa  console 

call  Crlf  fSkip  a  line  after  input 

;aake  sure  only  four  digits  keyed  in 

nov  BX, offset  cons  buff'*-!  ;byte  1  tells  how  many 
cap  byte  ptr[BX],4"  ;see  if  exactly  feur  read 
jne  Error  input  ;if  net  4,  error 

;Bake  sure  all  feur  digits  are  valid  hex 

mov  BX, offset  cens  buff'*2  ;byte  2  starts  data 


xor  AX, AX 
aov  CX,4 
Check  valid: 


nov 

cap 

cap 
1a^ 
cap 
ibe 
cap 
iae 
japs 
Valid  hex: 
sub 
push 
aov 
aov 
pop 
nov 
inc 
loop 


AL,f BX  ] 
AL,030H 
Error  input 
AL,04BH 
Error  input 
AL,039H 
Valid  hex 
AL,04lH 
Valid  hex 
Error'input 


;used  for  Ascii  table  index 
;nunber  of  digits  to  check 

;aove  digit  to  AL  for  chking 
;  check  to  see  if  tco  low 


;  check  to  see  if 
;chk  aid- invalid 


too  high 
(3aH-40H) 


it  is  in  the  aiddle  -  error 


AX,030H  ;-30H  to  get  table  index 

BX  ;save  buffer  addr 

BX,AX  :AX  IS  index  to  table 

AL, Ascii  table[BX]  ; table  look  up 
BX  ~  ; restore  buffer  addr 

byte  ptr[BX],AL  ; store  hex  back  in  buffer 
BX  :next  digit 

Check  valid  : go  check  it 


bj^te  ptr[BX 
Check  valid 


valid  hex 


cheef 


;convert  4  valid  hex  digits  to  a  binary  nuaber  in  AX 
nov  BX, offset  cens  buff'*2  :byte  2  starts  data 
nov  AH,C3X]  “  -  1-.--^ 


first  digit 
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aov  CL«4 
shl  AH, CL 
inc  BX 
or  AH,[BX] 
inc  BX 
aov  AL,rBXl 
aov  CL, 4 
shl  AL,CL 
inc  BX 
or  AL,[BXJ 
;store  controller  base 
aov  HB  contbase.AX 
japs  Ge^  cont  ret 
;error  in  iSput, "issue 
Error  input; 

lov  OX. offset  Bsg 
call  Print  String 
call  Crlf  " 
laps  Get  Cont  Addr 
Gat  cont  ret;" 

"  ret" 


; shift  it  to  high  nibble 

;increaent  index 

:^nd  dig  or*ed  into  low  nibb 

;rncreBent  index 

;get  third  digit 

; shift  it  to  high  nibble 

;inczeBent  index 
:4th  dig  or'ed  into  lov  nibb 
address  that  was  built  in  AX 

; go  return 
aessags,  retry 

errinp  :addr  of  error  aessage 
; write  asg  to  console 
;skip  a  Irne 
; go  ask  again 


|iiV«****4i***«***«**4i**«««»«««««*«««4>««*4>«»***4i*««*«*4i«****4te 

;♦  GET  TEST  BOFFER  subroutine  * 

;  A  v»*v«*«***)ii*e*4>**e***«e*  ***««**«**»«* 

: called  frca:  Hain. 

Get  Test  Buffer;;**  increaents  pattern  and  loads  test  buffer 
"  ;♦*  pirm  in  -  none 

:**  para  out  -  none,  effects  global  vars 
inc  pattern  ;add  one  (1)  to  pattern 

aov  AL, pattern  ;pattern  to  accua  for  aanipul 

aov  CX,HB  buzlen  :loop  counter  -  size  of  burf 
aov  BX, offset  test  buffer  ;set  index  into  buffer 
aov  rBX],AL  "  ;  load  a  byte 

inc  BX  ;buap  index 

loop  Fill  ;dec  CX,  loop  if  not  zero 

ret 


HEX  TO  ASCII  subroutine  * 

;called  froa:  End  Pass. Err  Out, Error  Suaaary. 
Hex  To  Ascii;  converts  a  hex  nuacer  to  its  h€x"Ascii 

"  "  ;♦*  para  in  -  AL  has  hex  byte  to  convert 

:**  para  out  **  DX  contains  hi&lo  Ascii  bytes 
:convert  low  nibble  of  AL  to  Ascii  hex  digit 

aov  AH,AL  ;save  hex  #  for  Ex  nibble 


and  AL,0fH  _  ,  ,  _ 

add  AL,90H  ;handles  0-9  (90H>40Us  130H) 

daa  ;deciaal  adjust 

adc  AL,40H  ;handle  a-fS  (41H-46H  Ascii) 

daa  ;deciaal  adjust 

aov  DL,AL  jlcw  nibble  Ascii  for  ret 

;convert  high  nibble  of  AL  to  Ascii  hex  digit 

aov  AL,AH  ;acve  to  AL  for  daa  ops 

aov  CL, 4  ;set  count  tor  shr  4 

shr  AL,CL  ;shift  hi  nibble  to  lo  nibble 

add  AL,90H  ;handles  0-9  (90H-^40Ha  130H) 

daa  ;deciaal  adjust 

adc  AL,40H  :handle  a-fH  (41H-46H  Ascii) 

daa  ;deciaal  adjust 

aov  0H,AL  ;high  nibble  Ascii  for  ret 


daa 

adc  AL,40H 
daa 

aov  DL,AL 


:clear  high  4  bits  lo  nibble 
;handles  0-9  (90H>40Us  130H) 


AL,40H 
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INIT  CONT  subroutine  * 

;callsd  fros:  Sain. 

Init  Cont;  Inits  the  SEE  controller  and  each  detice 

para  in  -  none 
:•*  para  out  -  npne 

aov  oXfOrfset  asg  initbegin  ;beqin  init  asg  addr 
call  Print  String  "  ;vrite  asg  to  console 
: initialize  page  size  and  ainci  loop  size 

aov  lX,aB  contbase  ;address  or  controller  base 
aov  ES,AX~  ;load  ES  to  address  bgbble 

ao7  iXrSB  aazpages  ;pages  per  bubble  device 
aov  £S:P  loopsize  lo,AL  ;loopsize  low  byte 
aov  ES: P~loopsiZ6~hi,AH  ;loopsize  hi  byte 
oov  ES : P~pagesize~reg, SB  pagesize; page  size  reg 
; issue  reset  Somaand  to  tee  controller 

aov  AL,SB  reset  cad  ;rgset  aasA  byte 
BOV  ES:P  Oand  rOg^AL  ; issue  reset  coaaand 
;initialize  each  bubble  device 

aov  CX,SB  aaxdevs^l  ;count  for  loop**  c£  devices 
aov  Al,0  ~  ;device  #  to  initialize 

Per  each: 

~  aov  ES:P  select  bubdev,AL  :select  each  device 

aov  ES:P~cand  reg, SB  init  cad  :init  this  device 
push  AX! push  Cl! push  ES  ; save  bubble  i, counter, ES 
call  Halt  :wait  for  controller  to  vorh 

pop  ES!  pop  CX!  pop  Ax  ;restore  ES ,cntr, bubble  # 
me  AL  :nezt  device  nuaber 

loop  For  each  ;dec  CX,  loop  if  not  zero 

:issue  asgs  Indicating  init  done  and  test  in  progress 
aov  OX, offset  asg  initend  ;init  done  aessage  addr 
call  Print  String  ”  ;write  asg  to  console 
call  Crlf  ;skip  an  extra  line 

aov  DX, offset  asg  testing  ;testing  aessage  addr 
call  Print  String  ~  ;write  asg  to  console 
ret  " 


)fe***ee  **«****««  eeeeeeeeeeee************* 

LOG  EBBOB  subroutine  * 

;called  froa:  check  Errors. 

Leg  Error:  leg  the  error  for  use  in  pass  printout 

para  in  -  nene 

•ee  para  out  -  none,  effects  global  vars 
aov  BX.errptr  ;adar  of  error  log  to  BX 

inc  byte  ptr  [BX]  ;add  cne  to  error  count 

Jnz  done  log  ;if  not  overflow,  all  done 

ec  byte~ptr  [BX]  ;inc  tco  big,  reduce  to  max 

dene  log: 

ret 

f 

• 

!*  «*«*i4i«ee***e*e**««  **«««**  #•*«««*«*  *ee«e***eeee*4i* 

;•*  PRINT  STBING  subroutine  * 

.  *9)1 we  *******  eee  **********  ******* 

;call€d  froB:  Close  Op,  End  Pass,  Err  Out, 

;  Error  Suaaary,  Gef  Cont  Addr,  Init  Cont, 

;  Main,  Set  Op.  ”  " 

Print  string:  prints  lurfer  addressed  until  *$'  hit 

para  in  -  address  of  buffer  in  DX 
•**  para  out  -  nene 

aov  Cl, Boos  pstring  :functicn  *  for  Bdes  call 
call  Bdos  icall  Bdos  and  print 

call  Crlf  :skip  a  line 

ret 
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;■«  POTCBAR  sutroutine  * 

;  ««««*«»««**««* ««***«««****»4l**«««)|l4l«*««««*«**«4l«»«»*«***««« 

:called  froa:  Crlf. 

Futchar:  ;**  writes  character  from  AL  to  console 


fch2 

n  -  output  char  in  AL 
:*•  para  out  -  none 

CLfBdos  conout  ;runctioni  for  Bdos  call 
OL^AL  ;load  char  to  Edos  reg 

Bdos  ;call  Bdos  and  send 


output  char  in  AL 


low 

no? 

call 

ret 


READ  SECTOfi  subroutine  * 

;called  froa:  Main. 

Read  Sector:  ;**  reads  sector  into  test  buffer  froa  bubble 

;♦*  para  in  -  none 

;♦*  para  out  -  none,  effects  global  vars 
cal^.  Coapute  Pageno  :coapute  1st  page#  of  sector 
;establish  addressability  to  controller 

ao7  AX,llB  contbase  :address  of  controller  base 
ao7  |S,AX~  ;load  ES  to  address  bubble 

:set  aultipaqe  aode 

ao7  ES:P  cand  r€g,(lB  aulti  page  :nultipage  node 
;load  first  pSge  nUablr  rZr  tralSsflr 

aov  AX,curr  page  no  :current  page  nuaber  testing 
aov  ES:P  pagesel~lo, AL  ; page  select  lo  byte 
aov  ES: P~pagesel~bi. AH  ;  page  select  hi  byte 
;set  nuaber  ol  pages  fo  transrer  -  pages/sector 

aoT  ES:P  pagecnt  lo,HB  pages  sec  ;#  pages  to  xfer 
now  ES: P"pagecnt“‘hi,0  Thi  tyfe  of  i  is  zero 
;set  up  buffer  to  receive  data 

aov  CX,nB  buflen  ;count  for  loop-buffer  size 
aov  BX.oflset  test  buffer  ;set  index  into  buffer 
; select  bubble  device  aSd  issue  read  conaand 

aov  AL,curr  bub  no  :current  bubble  #  testing 
aov  ES:P  select~bubdev ,AL  ;select  current  dev  # 
aov  ES:P~cand  reg,llB  read  cad  ;read  froa  FIFO 
;wait  for  interrupt  froa  controller 
Head  int: 

IF  vectored  int 

cap  interfupt  flag,0  ;will  be  set  by  int  handler 
jz  Read  int  ~  ;if  zero,  iceep  checking 

aov  interrupt  flag,0  ; reset  interrupt  flag 
ENDIF  ;vectored"int 


IF  not  vectored  int 
aov  AL,ES:P  ipO  flag 
and  AL.HB  clkinf  aask 

Jz  Read  int  " 

IP  ;not  vectored  int 
;read  froa  HBB  FIFO  buffer 


;get  interrupt  status 
;nas  interrupt  keen  set? 
;if  not,  keep  checking 

into  test  buffer 


loop 

push 

call 


AL,ES:?  rdata  reg  :read  a  byte  into  accua 
r3X],AL  ;load  accua  into  buffer 

3X  :increnent  index 

Read  int  ;dec  CX,  loop  if  not  zero 

ES  ~  :save  Es 

Wait  :wait  for  controller  to  stop 

ES  ,  ;?est9re  E§ 

ES:P  cand  reg,llB  int  inhibit  ; clear  cont  int 
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;******««*««««*«*««**««*«*«»**«««*««««*«»**«»»««*********«*« 

;*  SET  OP  sutroutine  * 

;calj.ed  froa:  Main. 

Set  Op:  ;**  inits  7ariables  and  issues  sigoon  asg 

;**  pars  in  -  none 

•*«  barn  out  -  none,  effects  global  vars 
call  Crlf  fSHp  an  extra  l^ne 

call  Crlf  ;sklp  an  extra  line 

ooT  OX, offset  Bsg  signon  ;signon  aessage  address 
call  Print^String  "  ;apite  asg  po  console, 
aov  OX, offset  asg  versign  :version  asg  address 
call  Print  string  ~  :Hrite  asg  to  console 
call  Crlf  ~  ;skip  an  extra  line 

; initialize  all  variables  and  flags 

aov  newpass  flag>1  ;set  flag  indicating  new  pass 

aov  curr  buE  no,0  ;current  bunble  #  tc  0 

mov  curr“secfor  no,0  {current  sector  #  to  0 
aov  pattern, 1  ”  {initial  test  pattern  is  1 

aov  pass  no,  1  {initial  pass  I  is  1 

aov  errpf r ,of fset  erricg  {addr  of  error  log 
{load  HB  interrupt  vector  address  in  CP/H  low  aeaory 
push  OS  {save  this  pga's  OS 

aov  AX,0  {lowest  aenory 

aov  OS, AX  {Bake  it  addressable 

aov  MB  int  segBent,CS  {int  vector  CS  is  pga  CS 
aov  MB”int“of rset, of fset  Trap  Handleritrap  handlr 

rp  OS”  "  {restore  fhis  pga's  DS 

up  8259a  piC  tc  recognize  interrupt  froa  MBB-SO 
aov  AL,HB  int  aask  {aask  to  enable  MB  interrupt 
out  PICpl7AL  ~  {send  aask  to  8259a  -  OHC1 

sti 
ret 


rr  sector  no,u  ; current  seczcr  v  to  u 
ttern,1  ”  {initial  test  pattern  is  1 
ss  no, 1  {initial  pass  I  is  1 

rpfr, offset  erricg  {addr  of  error  log 


«  TBAP  HANCLEfi  subroutine  * 


Trap_Handler : 


aov 

iret 


{Called  froa:  Vectored  to  froa  CP/M  interrupt 
{««  sets  the  interrupt  flag  seaaphcre  to  one 
;**  para  in  -  none 
{**  para  out  -  none 

interrupt  flag,1  {set  the  interrupt  flag  on 
"  {return  froa  interrupt 


*  WAIT  subroutine  * 

{Called  froa:  Init  Cent,  Bead  Sector, 

{  Write  Sector.  “ 

Wait:  ;**  checks  status  of  MBB  controller  for  busy 

{*«  keeps  checking  (wait)  until  not  busy 
{**  para  in  -  none 
{**  para  out  -  none 

aov  Ax, MB  contbase  {address  of  controller  base 
aov  SS,AX~  {load  IS  to  address  bubble 


aov 

aov 

See  zero: 

~  aov 
and 

j2 

Cent  busy; 

aov 

and 

inz 

ret 


AL,ES:P  status  reg  :get  status  register 
AL,MB  bUsy  check  {is  it  all  zeros  ? 

See_ziro  ”  ;if  so, keep  checking  for  one 

AL,ES:P  status  reg  {get  status  register 
AL,MB  busy  check  ;see  if  busy,  and  to  aask 
Cent  Busy  ~  {if  busy,  check  again 
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WRITE  SECTOR  subroutine 


Write  Sector: 


:calle(3  fros:  Main. 

;**  writes  sector  free  test  buffer 
pare  in  -  none 
:**  pare  oat  - 


:o  bubble 


•  —  DCnQ 

call  Coepute  Pageno  ;coapute  1st  page*  of  sector 
:establish  aadrelsaoility  to  controller 

aov  IX, MB  contbase  ;address  or  controller  base 
sow  ES,AX~  ;load  ES  to  address  bubble 

:set  Bultipage  node 

BOV  ES:P  cand  reg^BB  aulti  page  ;Bultipage  node 
;load  first  page  nuaber  for  transfer 

BOV  AXfCurr  page  no  :current  page  nuaber  testing 
nov  ES:P  pagesel  lo,AL  ; page  select  lo  byte 
BOV  £S:P~'pagesel  hi, AH  ;  page  select  hi  byte 
;set  nuaber  of  pages  fo  transfer  =  pages/sector 


aov 
nov 
;set  up 
aov 
aov 
; select 
aov 

BOV 

aov 
aov 
inc 
aov 

;wait  for 
Write  int: 


pages  *  .  . 

ES:P  pageent  1q,mb  psges  sec  ;*  pages  to  zfer 
ES:P”pagecnt  hi,0  Tni  byfe  of  *  is  zero 
buffer  to  send  data 

CXrMB  buflen^l  :ccunt  for  loop-buffer  size 
BX, offset  test  buffer  ;set  index  into  buffer 
bubble  device  and  issue  write  cad 
AL,curr  bub  no  ;curr€nt  bubble  *  testing 
ES:P  select" bubdev ,AL  iselect  current  dev  * 
AL,fffX]  "  jload  first  byte 
ES:p  wdata  reg^Al  ;write  a  byte  to  FIFO  buff 
BX  ~  :ingreaent  index 

ES:P  cand  reg,BB  write  cad  ; write  FIFO  buff 
intdrrupf  froa  cbntrcller 


IF  vectored  int 

cap  interrupt  flag,0  ;will  be  set  by  int  handler 
jz  Write  int"  ;if  zero,  keep  checking 

BOV  interrupt  flag,0  ; reset  interrupt  flag 
ENDIF  ;vectored"int 


IF  not  vectored_int 
BOV  AL,ES:P  int  flag 
and  A1,MB  cfkinf  aask 
1z  Write  Int 

EMdIF  ;nof  vectored  int 


;get  interrupt  status 
;£as  interrupt  been  set? 
;if  not,  keep  checking 


;write  into  MBB  FIFO  buffer  froa  test  buffer 

aov  AL,rBXl  ;byte  froa  buffer  to  accua 

nov  ES:P  wdata  reg,AL  ;write  a  byte  to  FIFO  buff 
inc  BX  ~  "  ;increaent  index 

loop  Write  int  ;dec  CX,  loop  if  net  zero 

push  SS  "  ;save  ES 

call  Wait  ;wait  for  controller  to  stop 

pop  ES  ;r€Store  ES 

nov  ES:P  ennd  reg,MB  int  inhibit  ; clear  cont  int 


*  DATA  SEGMENT  AREA  * 


OS  EG 


;** - 

ilscii_table 


org  0100H  ;leave  zooa  for  base  page 


Wariablas- 


« 


db 

rb 

db 


OOH,01H,02H,03H,04H,05H.06H,07H,08H,09H 
7  ;for  Ascii  3aH  to  40H  -  invalid 
0aH,0bH,0cH,0dH,0eH,0fH 
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CODS  buff 
curr  bub  no 
cutr  page  no 
curr  sector  no 
errlcg 
errptr 

interrupt  flag 
HB  contbase 
nevpass  flag 
pass  DO 
pattern 
test  buffer 


conbuf  size  ;area  for  cons  string  input 
1  ~  ; babble  device  #  O'*?  testing 

1  ; bubble  page  #  testing 

1  ;ouDbIe  log  sector  *  testing 

MB  aaxdevs-t'l  :table  tor  dev  errgr  count 
1  “  ; pointer  to  ertlog  -  index 

0  :int  flag  -  seaapnore^f ros  MBB 

OOOOH  :base  segaent  addp  for  HBB-80 

1  ;flag  for  indicating  new  pass 

1  ;pass  nuaber 

1  :test  pattern 

HB  buflen  ; buffer  to  hold  test  data 


string  data  area  for  console  aessages  — — — 


Bsg  counts  rb  ((NB  ■axdevs'f  1)  *3) 

db  'i*  " 


asg  donebub 
asg~donepass 
tsg_d_pass 

asq_endtest 

asg  err 
Bsg_e_dev 

Bsg_e_page 

Bsg_e_byte 

Bsg_e_wrote 

Bsg_e_read 

Bsg_errinp 

asg_getaddr 


'  Done  with  a  babble. $* 
'Done  with  PASS  ' 

2 

'fOser  t@>^>inates  testing., 
'returning  to  CP/l!!l' 


an  • 

sg  errinp  db  'v*EBROB:  not  exactly  4  digits  entered,' 

~  db  '  or  invalid  hex  digits! !$' 

sg  getaddr  db  cr,l£.'Key  in  4  digit  segment  base  addr' 

-  db  'ess  tor  aBB-80  controller. cr, If 

db  'Rust  be  in  hex  (4  digits,  tnen  CB  only)' 
db  '  a>  $' 

Bsg  header  db  'Bubble  page  Byte  Hrote  Beads* 

asq~initbegin  db  cr,lf, 'Initializing  the  controller. .. S ' 
msg~initend  db  'Controller  is  initialized.!* 

msg“signon  db  *  ' 

db  •**  MBE-80  CP/a-86  DIAGNOSTIC  TEST  **$* 
msg  summary  db  'Total  errors  for  each  device  (0-7):!' 
asg”testing  db  'Testing. .. Hit  any  char  (&  CRI)  ' 

~  db  'to  stop  after  this  pass.!' 

asg  version  db  '  ' 

db  'Multi-Page  Rode  Version  1.0',cr,lf 
IP  vectored  int 
db  *  “  ' 

db  *  Vectored  Interrupts!' 

ENDIF  ;v6Ctored  int 
IF  not  vectcred~int 
db  •  “  ' 

db  '  Polled  Interrupts!' 

ENDIF  ;not  vectored  int 

db  0  ;6£MCBD  to  fill  last  address 

Aeeeeee**********  end  of  variables  **e****«»«e»e*»e»***e**e 

ESB6 
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*  NBB-80  COMTBOLLBB  AHO  POBTS  * 


i.paqesel  1? 
P_pag€S«l  hi 
P  CBod  reg 
P  rdata  reg 
P“wdata"reg 
P” Status  reg 
P  pagecn?  lo 
P  pagecat“hi 
P'lccps^ze  lo 
P31oopsize"hi 

P.pagesize^reg 

P  select  bubdev 


rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rw 

rb 

rw 

rb 

equ 


select 


Is  byte  for  page  select,  (0) 
■s  2  bits  for  page  select, (i) 
cosaand  register,  (2) 
read  data  register,  (3) 
write  data  register,  (4) 
status  register,  (5) 

Is  byte  for  page  counter,  (6 
as  2  bits  for  page  enter,  '7 
Is  byte  for  ainor  loop  sz,  i 8 
as  2  bits  for  ain  loop  sz.  (9 
internal  use  (page  pcsl,  (A,B 
page  size  register,  (Cf 
TI  use  only,  (0,£) 

^.two  uses:  sel  bubble  dev  (F) 
bubdev  ;  interrupt  flag 


•***•***••  end  or  CoStrolIef  and  Port  definitions 


*♦****♦•****♦♦♦♦•»**♦*•»•***••**»»**♦**»*♦**•♦**•*»♦******♦ 

*  DONHT  CATA  SECTIOM  * 


OSBG 
org 

as  int  offset 
HB_int“segaent 


0  ;absolute  low  aeaory 

0  (Start  C?/H  interrupt  vectors 

i  ^  ; pad  to  int  type  for  MBB 
rw  2*  (MB_int_type) 

rw  1  "  “(audr  cf  int  vector  offset 

rw  1  ;addr  of  int  vector  segaent 

End  of  Prograa  D1AG86(1  * 

.  4i**«**4i***«*4t*e*«**4i«eeeeeeee««4i»e4i««4i4i4i4i4i4i4i4i4i«4i4i4i4ii44ii44n|i«4ttt 

END 
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AiESUB^g.  P 

PBOGBAB  LISIIBG  OP  aB80PHT.A86 


FIIEN&BBS:  Pascal  »  HB. aESOFBT. TEXT 
CP/M  *  HB80FHT.CHD 

■«*«***««««****«**«*«**««««»««««*««»*«***«*4i«w*«*«********»i* 

8086  FORMAT  PROGRAM  FOB  PC/M  MBB-80  BOBBLE  MEMCBIES  * 

****V**4i;|i«  «**«*««*«*«««  *««**«««4i**  ««««««*« 

CCNFIGORATIOH: 

HOST  -  Intel  86/1 2A  SBC.  20  address  lines,  MDS  fystes. 
Data  bus  on  86/12A  converting  to  low  8  bits 
all  high. 

MBB  -  Interrupts  disabled  by  disconnecting  the  inter¬ 
rupt  juaper  on  the  MBB  board.  Multi-page  aode. 


This 

byte 

ifiM 


Srogran  writes  a  ^orsattipg  code  (OeSH)  into  every 
n  the  bubble  devices.  This  code  is  for  standard 
coapatible  disks. 


The  MBB-30  controller  base  address  is  read  into  variable 
'MB  contbase* .  MBB-80  address  select  pins  must  correspond 
to  This  address.  This  prcgraa  uses  sesory  napped  I/O 
through  the  base  address. 


*  Bdos  function  numbers 

Bdcs  conbuf  egu  10 

Bdcs“conout  equ  2 

Bdcs“pstring  equ  9 

Bdc£~reset  equ  0 

*  MEE  characteristics  * 


MB  buflen 
MB~naxdevs 
MB~aaxpages 
HB'naxsectors 
MB“pages  sec 
ME'paqesIze 
MB"skew 


equ  144 
equ  7 
equ  641 
equ  8  0 
equ  8 
equ  18 
equ  12 


for  calls  * 

;conscle  string  input  function  # 
;console  output  char  function  # 

: print  string  until  * $*  function  t 
;CP/M-86  reset  to  CCP  function  # 


; buffer  length  for  sector 
;  bubble  devices  are  #0-«7 
;#  of  pages  on  each  bubble  device 
;i  of  log  sectors  on  each  bub  dev 
;#  of  pages  per  logical  sector 
;bubble  device  page  size 
;skew  for  page  translation 


:*  MBB  connand 
MB  busy  check 
ME~init~cad 
MB“int  inhibit 
MB"chkInt  aask 
MB"aulti  page 
MB“read  end 
MB“ reset  cad 
MB”wtite“cad 


aasks  and  statu 
equ  00100000B 
equ  0000000  IE 
equ  10000000E 
equ  10000000E 
equ  00010000E 
equ  00010010E 
equ  01000000B 
equ  00010100B 


s  masks 

coat  busy?  status  check  (20H) 
init  the  controller  (OIHI 
int  inhibit/reset  mask  (BOH) 
mask  testing  if  int  set  (80H) 
aulti-page  aode  conaand  i lOHi 
multi-page  read  conaand  i12H) 
reset  the  controller  (40H) 
aulti-page  write  conaand  (14H) 


;*  Miscellaneous  equates 
conbuf  size  equ  80 
cr  ”  equ  OdH 

foraat  pattern  equ  OeSH 

If  "  equ  OaH 

• 


:size  of  console  input  buffer 
; Ascii  carriage  return  cent  char 
;foraat  pattern  for  every  byte 
;  Ascii  line  feed  control  char 


*  nAIN  PBOGRAM  -  ERIVEH  * 

*41  «««««««««««*»** 

CSEG 


MB80PMT:  call 
ca.1 ' 
cal- 
Ecraat  loop: 

call 
;advaDC9 
inc 
cop 
jnz 
;was  las 
noT 
call 
cop 

iz 

; prepare 
inc 
mov 
■fop 

Ecne  foroat; 

call 

ooo 

oov 

call 


Set  Op 

Get“Cciit  Addr 
laif  Con? 


;do  initialization 

;get  address  o£  HBB-SO  base 

:init  the  cont  and  devices 


Brite  Sector  ; write  a  sectop  to  bubble 
to  next  sector  in  device. see  i£  last  sector 
curr  sector  no  ;increaent  current  sector  * 
curr'sector-no oaxsectors  ;last  sector  ? 
Foroat  loop”  ;if  not.  format  next  sector 
t  sector. advance  to  next  bub  dev  on  board 
DX, offset  osg  donedev  :addr  of  done  dev  osg 
Print  String  “  ;vrite  osg  to  console 
curr  '5ub  no, SB  aaxdevs  ;last  bubble  on  bo^rd? 
Dona"foriat  “  ;if  sc,  done  with  foraatting 
to  foroat  next  bubble  device 
curr_bab_no  ;if  net,  increoent  device  # 

ck.to  zero 
ce 


JJUU  UV  ut 

curr“secfor  no,0  ;set  sector  #  back.: 
Pornlt_loop“  ;gc  feraat  next  devic 


;do  end  of  run  housekeeping 
;function  #  for  Bdes  call 
;paraaeter  to  release  aeaory 
;call  Bdos  to  terainate  prog 

*4*****4i**********  Slid  of  Bain  Prograa  *4r4t4i*4t*****4i*****4i*4i 


Close  Op 

CL, Bdos  reset 

DL,0 

Bdos 


.  ***4i4i4i4t)k**)ii*******4i***4i4i4i4«4i***4>**4>****4i4i**4i4i4i***4t4>**4i****4i 

;*  BDOS  (CP/M-861  subroutine  * 

:**4i*A4i4t*«*******4i*«*4*****4i*«*«*«4i«*iMi«*«4l4i4t****«**4i4i***4t*» 

:called  fros:  Get  Cont  Addr,  Bain, 

;  Print  String,  Putchar. 

Bdes:  ;**  entry  to  Bdos  via  software  interrupt  224 

;**  para  in  *  caller  loads  regs  as  per  reg 
para  out  -  as  supplied  by  Bdos  returns 
int  224  ;8086  software  interrupt 

ret 


.  *44i«4r*4t**4t4i4i4i4t4i***«4i****4i*4i****4i****4>**4i4>*4t4i«4i**«***4i**4i4t4i4i 

;*  CLOSE  OP  subroutine  * 

•  ***4i*4i4t4i*4i4i4>4i*4i4i*«4i*S4i4i*4i«4>*4i**4i*4i**4i*4>4i*e**«*4>4i*4>4>*4>e4i>V*4)* 

;called  froa:  Bain. 

Close  Up:  issues  goodbye 

;*’•  para  in  -  none 
;**  para  out  -  none 
;issue  goodbye  aessage 

call  Crlf  (Skip  extra  line 

aov  OX. offset  asg  endferaat  ;addr  done  foraat  asg 

call  Print  String  ~  ;writ6  asg  to  console 

ret 
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**4>4i«4i**«4i*«*««**«*««*«*««*«««««*******«**»**«*»««*»4t*«*«« 

.  COMPOTE  P&GENO  subroutine  * 

;called  froa:  8xite  Sector. 

Ccapute_Paqeno: ;**  coaputes  1st  page  i  for  a  given  sector 
;**  parm  in  -  none,  works  on  curr  sector  no 
■A*  bara  out  -  none,  updates  curr“page  n3 
xor  AX, AX  ;set  AX  to  zero 

cap  ALfCurr  sector  no  :is  it  sector  0  ? 

1z  Store  page  ~  :iz  sc,  no  translation 
xor  CX,CX"  ;clear  CX  for  counter 

aov  CL, curr  sector  nc  ;cntr  for  translate  loop 
Add  skew;  »  -  - 

add  AX,NB  skew  ;i  of  pages  between  sectors 

clc  "  ;clear  carry 

sbb  AX, MB  aaxpages  ;BOd  tg  *  of  pages 
jae  Dec  sector  ;juBp  if  positive  (CP*0) 

add  AX, IB  aaxpages  ;went  neg,  add  back  #  pages 
Cec  sector; 

~  loop  Add  skew  ;dec  sector  #,  add  skew  again 

Stcre  page;  “ 

~  aov  curr  page  no, AX  ;store  page  nuaber 
ret  " 


*  CBLP  subroutine  * 


Crlf ; 


;called  froi:  Close  Op,  Get  Cont  Addr, 
;  Init  Cent,  Bain,  Print  String, 

sends  clrriage  return, line  feed  to 
;*•  para  in  -  none 
.«*  para  out  -  none 

aov  AL.cr  ;cacriage  return  char 

call  Putchar  ;write  it  to  console 

aov  AL,1£  ;line  feed  char 

call  Putchar  ; write  it  to  console 


ret 


GET  CONT  ADDS  subroutine  ♦ 

.  *4*«**iii«j«***e****]kS4>»*«aeve*e«««**e««e*e»ee**eee*e«»e*e«e** 

;called  froa;  Bain. 

Get  Cont  Addr;  ;*♦  gets  base  segaent  address  for  the  BBB-80 
“  ”  controller  froa  the  user  at  the  console. 

;**  para  in  -  none 

:**  para  out  -  none,  updates  BB  contbase 
BOV  dX, offset  asg  getaddr  ;addr  of  get  cont  asg 
call  Print  String  ”  ;write  asg  to  console 
;get  base  address  keyed  in  by  the  user 

aov  CL,6dcs  conbuf  ;input  console  string  funci 


aov  CL,B 
aov  BX.o 
aov  byte 
aov  DX,B 
call  Bdos 
call  Crlf 
;Bake  sure  o 


BX, offset  cons  buff  :area  for  cons  input 
byte  ptr  [BXl,ccnbuf  size  :tell  Bdes  siz 
DX,BX  ;loaI  para  for  Bdos  call 


:  read 
;skip 


call  Bdos  :read  froa  console 

call  Crlf  ;skip  a  line  after  input 

;aake  sure  only  four  digits  keyed  in^ 

aov  BX, Offset  cons  cufr^l  ;byte  1  telxs  how  aany 
cap  byte  ptrCBX],4~  ;see  if  exactly  four  read 

jne  Error  input  ; if  net  4,  error 

;aake  sure  all  four  digits  are  valid  hex 

aov  BX, offset  cens  buff'»2  ;byte  2  starts  data 
xor  AX, AX  ~  ;used  for  Ascii  table  index 

aov  CX,4  ; nuaber  of  digits  to  check 

Check  valid: 


AL,r  3X1 
AL,b30{1 


;aove  digit  to  AL  for  chking 
;  check  to  see  if  tco  low 
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jb  Error  input 
cap  AL,04HH 
ja  Error  input 
cap  AL,93^H 
jbe  Valid  hex 
cap  AL,94TH 
jae  Valid  hex 
japs  Error”input 
Valid  hex;  " 


push 

BX 

aov 

BX 

mov 

AL 

pop 

BX 

QOV 

bv 

inc 

BX 

loop 

Ch^ 

;convert 

4 

aov 

BX 

aov 

AH 

aov 

CL 

3hl 

AH 

inc 

BX 

AH 

me 

BX 

aov 

AL 

aov 

CL 

shl 

AL 

inc 

BX 

or 

AL 

; store  con 

; check  to  see  if  tco  high 
;chk  aid-invalid  (3aH-40H) 

;ir  is  in  the  aiddle  -  error 

;-30H  to  get  table  index 
;save  buffer  addr 
:AX  is  index  to  table 
:j  ; table  look  up 
; restore  buffer  addr 
; store  hex  back  in  buffer 
:next  digit 


BX  :next  digit 

Check  valid  : go  check  it 

4  valid  hex  digits  to  a  binary  nuaber  in 
BX, offset  ccES  Duff+2  zbyte  2  starts  data 
AH,rBX]  '  ;get  tipst  digit 

CL, 4  ; shift  It  to  nigh  nibble 


;get  tipst  digit 
; shift  It  to  nigh  nibble 

;increnent  index 

; 2nd  dig  or'ed  into  low  nibb 

;incr6aent  index 

;g6t  third  digit 

; shift  it  to  nigh  nibble 

;incr6nent  index 


aov  MB  contbase.AX 
japs  Gef  cont  ret  ;go  return 

; error  in  input, "issue  aessage,  retry 
Error  input; 

iov  OX, offset  asg_errinp  :addr  of  error  aessage 
call  Print  String  : write  msg  to  console 

call  Crlf  ”  ;skip  a  line 

japs  Get  Cont  Addr  ;go  ask  again 
Get  cont  ret;"  " 
rat" 

;*  INIT  CONT  subroutine  ♦ 

;  !k******«e«*e4te*eeee*ee**e 

;calied  fron;  Nain. 

Init  Cont;  ;*♦  inits  the  MEE  controller  and  each  device 

;**  para  in  -  none 
;**  para  out  -  none 

;initialize  page  size  and  aincr  loop  size 

aov  AX,nB  contbase  ;address  or  controller  base 
aov  SS,AX"  ;load  £S  to  address  bubble 

aov  AX,HB  aaxp^ges  ;pages  per  bubble  device 
aov  ES;P  loopsize  1o,aL  ;loopsize  low  byte 
aov  ES; P"loopsize"hi,AH  ;loopsize  hi  byte 
lov  ES;P"pagesize"reg,I!B  pagesize ;  page  size  reg 
; issue  reset  coaaand  to  the  controller 


aov  ES,AX 
aov  AX, HB^aaxp^ges 
aov  ES;P  loopsize  . 
aov  ES ; P"loopsize"l 
aov  ES; P"pagesize"i 
; issue  reset  coaaand  to 


le  ccntroller 


aov  AL,!1B  reset  cad  :reset  aask  byte 
aov  ES;P  cand  ri9,AL  :issue  reset  coaaand 
: initialize  eich  btibble  device 

aov  CX,!!B  aaxdevs+l  ;count  for  loop-#  of  devices 
aov  AL,0  "  ;device  *  to  initialize 

For  each;  ,  ,  ,  . 

aov  ES;P  select  bubdev,AL  ;select  each  device 
aov  ES:P  cand  rig,ilB  init  cad  ;init  this  device 
push  AX! push  Cl! push  ?S  ; save  bubble  #, counter, ES 
call  Wait  ;wait  for  controller  to  work 
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K  «« 


pop  ES!  pop  CX!  pop  AX  ;rest07e  ES ,cnti, bubble  * 
me  AL  :next  device  nuaber 

loop  For  each  ;dec  CX,  loop  if  net  zero 

; issue  asgs  Indicating  formatting  in  progress 
call  Crlf  :slcip  an  extra  line 

aov  DX, off set  asg  formatting  ; formatting  msg  addr 
call  Print  String  ”  ;write  msg  to  conscle 
ret 


;*  PRIUT  STRING  subroutine  * 

.  *4«««4i*ik««»*««**««4i««*4<*««*«»»««««*«****»«*«**4>*****««***«* 

‘.called  from:  Close  Op,  Get  Cont  Addr, 

:  Init  Cent,  bain.  Set  Up. 

Print  String:  ;**  prints  tuffer  addressed  until  hit 
;**  parm  in  -  address  of  buffer  in  CX 
barm  cut  -  none 

mov  CL,Bdos  pstring  ;f unction  #  for  Bdes  call 
call  Bdos  “  ;call  Bdos  and  print 

call  Crlf  :skip  a  line 

ret 


PDTCHAR  subroutine  ♦ 

;called  from:  Crlf. 

Putchar:  ;♦*  writes  character  from  AL  to  console 

;**  parm  in  -  output  char  in  AL 
parm  cut  -  none 

mov  CL,BQos_conout  ;function#  for  Bdos  call 
mov  DL,AL  ;load  char  to  Bdos  reg 

call  Bdos  ;call  Bdos  and  send 

ret 


!*4]li*4i***4t*  **«**«******«««««**«««««*:*  «*«****««*****4i««*4i*«*« 

;*  SET  OP  subroutine  * 

.«  4  «**4>*4t«**«**4i«*«*«4>**«*«*4>**«««4>«  *«*«*»««*  «**»*«***«***«« 

;called  from:  bain. 

Set  Op:  inits  variables  and  issues  signen  msg 

;**  parm  in  -  none 

;♦*  parm  out  -  none,  effects  global  vars 
call  crlf  :skip  an  extra  line 

call  Crlf  ;slcip  an  extra  line 

mov  DX, offset  msg  signon  ;signon  message  address 
call  Print  String  ~  ;write  msg  to  conscle 
mov  DXjOfIset  msg  version  ;version  msg  address 
call  Print  String  ~  ;wr4.t6  msg  to  console 

call  Crlf  ~  iskip  an  extra  line 

;initialize  all  variables  and  flags 

mov  curr  bub  no,0  ;current  bubble  #  to  0 
mov  curr”seclcr  no,0  ; current  sector  #  to  0 
rat  ” 


'«i4*4*444««4********4«V4****4«V«>|i44iw*»4i«4«4*4**4«»**4*«*«4V* 

■*  WAIT  subroutine  ♦ 

Ik  44*44*44*4**4  44*4i4i4V4«**«44*«4**»*«*****«VV*4i4i«»VV4>****««* 


;called  from:  Init  Cont,  Write  Sector. 

Wait:  ;♦*  checks  status  5£  MBB  contp'dller  for  busy 

;**  keeps  checking  (wait)  until  not  busy 
.*4  parm  in  -  none 
!**  barn  out  -  none 

mov  AX,bB  contbase  ;address  of  controller  base 
mov  ES,AX~  ;lcad  ES  to  address  bubble 


See  zero: 

lOV 

and 

Cent  busy: 

aov 

and 

jnz 

ret 


AL,SS:P  status  reg  ;get  status  register 
ALrNB  busy  check  ;is  it  all  zeros  ? 

See_zero  ~  ;i£  so, keep  checking  for  one 

AL,ES:P  status_r6g  ;get  status  register 
AL,{tB  busy  check  ;see  if  busy,  and  to  aask 
Cont  'Eusy  ~  ;if  busy,  check  again 


;*  WRITE  SECTOR  subroutine  » 

;  >ii*4i**^4>**4i««««****e«e4i»«*«»***«e*e««ee«***e*>Mie*««*e*****«e 

;called  froe:  Main. 

Writ6_Sector :  ;♦*  writes  sector  using  format  patt  to  MBB80 

;♦*  parm  in  -  none 
.**  parm  out  -  none 

call  Compute  pageno  ;conpute  1st  page#  cf  sector 
;establish  addressability  to  controller 

mov  AX,HB  contbase  ;address  of  controller  base 
mov  ES,AX~  :load  IS  to  address  bubble 

;set  nultipage  mode 

mov  ES:P  cmnd  reg,(lB  multi  page  ;aultipage  mode 
;load  first  page  ndnber  fdr  transfer 

aov  AXfCurr  page  no  :current  page  #  formatting 
aov  ES:P  pagesel  lo,AL  :page  select  lo  byte 
mov  ES: P”pagesel“hi, AH  ;|age  select  hi  byte 
;set  number  of  pages  fo  transfer  =  pages/sector 

mov  ES:P  pageent  lo,HB  pages  sec  ;i  pages  to  xfer 
aov  BS:P"pagecnt  hi,0  Thi  fcyfe  of  #  is  zero 
;set  up  buffer  to  send  data 

BOV  CX.MB  buf^en-l  ;count  for  loop-buffer  size 
;select  bubole~device  and  issue  write  cad 

mov  AL,curr  bub  no  ;current  babble  #  formatting 
mov  ES:P  select” bubdev, AL  iselect  current  dev  # 
BOV  AL, format  pattern  :load  format  pattern 
mov  ES:?  wdata  reg.AL  ;write  a  byte  to  FIFO  buff 
mov  ES:P”cmnd  reg, MB  write  cad  ;write  FIFO  buff 
;wait  for  interrupf  from  controller 
Write  int; 

aov  AL,BS:P  int  flag  ;g6t  interrupt  status 

and  A^.HB  cfkinf  mask  ; has  interrupt  been  set? 


and  AL,HB  cfkinf  mask  ; has  interrupt  been  set? 
jz  Write  Int  ”  :if  not,  keep  checking 

;write  into  IBB  FIFO  buffer  frem  format  pattern 

mov  AL, format  pattern  :byt6  from  pattern  to  AL 
aov  ES:P  wdatl  reg,AL  jwrite  a  byte  to  FIFO  buff 
loop  Write  int  "  ;dec  CX,  loop  if  net  zero 

push  ES  "  ;save  ES 

call  Wait  ;wait  for  controller  to  stop 

pop  ES  ;restore  £S 

mov  ES:P  cmnd  reg,MB_int  inhibit  ; clear  cont  int 
ret  “  ”  ” 

*  DATA  SEGMENT  AREA  * 


DSEG 


orq  0100H 


; leave  room  for  base  page 


•Variables--- — — 


Ascii 

_table 

ib 

rb 

db 

cor.s 

buff 

rb 

cyrr“ 

bub  no 

rb 

0aH,0bH,0cH,0dH,0eH,0fH 

connuf  size  ;area  for  console  input 

1  “  ; bubble  device  #0-7  formattii 
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cuxr  page  no  rv  1 
cutr  sector  no  rb  1 
MB  c9ntbase~  dw  OOOOH 


: bubble  page  i  foraatting 
;bab  logic  sect  «  focaatting 
;base  segaent  addr  for  BBB^dO 


- string  data  area  £cr  console  aessages 


« 


asg  donedev 
asg^endforaat 

asg_errinp 

asg  foraatting 
asg“getaddr 


msg_signoa 

Bsg_Tersion 


db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 


'  Done  with  a  device. S* 

'*Foraatting  coaplete...* 

•returning  to  CP/HfS* 

***EBB0B:  not  exactly  4  digits  entered,' 

•  or  invalid  hex  digitsllS* 

•Foraatting  the  devices . S* 

crrlfc'Key  in  4  digit  segaent  base  addr' 
•ess  rcr  BBB~80  ccntroller. ' .cr,l£ 

I  Rust  be  in  hex  (4  digits,  then  CB  only)' 

I  • 

•♦*  HBE-80  CP/H-86  BUBBLE  POEHATTEB  **!• 

i  I 

•Rulti'Page  Rode  Version  1.0B' 

0  ;GBMCHO  to  fill  last  address 


ike*vtees4i*«**e4i4t*)(i  ^q,}  of  variables  eeeeeeeeeeee************ 


ESBG 

*  NBB-80  CONTBOLLEB  AMD  POBTS  * 


^  pagesel  lo 
P“Faqesel~hi 
P“cand  reg 
P”rdata  reg 
P'"wdata”reg 
P^status  rag 
P^pagecnf  lo 
P~pagecnt”hi 
P”lcopsize  lo 
P^loopsize'hi 

P.pagesize^reg 

P  select  bubdev 
P”int  fllg 

.aip«*s**e**  end 


rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rw 

rb 

rw 

rb 


Is  byte  for  page  select,  (0) 
as  2  bits  for  page  select, (1) 
coaaand  register,  (2) 
read  data  register,  (3) 
write  data  register,  (U) 
status  register,  (5) 

Is  byte  for  page  counter, 
as  2  bits  for  page  enter. 

Is  byte  for  ainor  loop  sz, 
as  2  bits  for  ain  loop  sz, ^7, 

(i,Bj 


two  uses:  sel 

egu  P  select  bubdev  ;  _ .  _ 

of  Controller  and  Port  definitions 


sel  bubLle  dev  (F) 
interrupt  flag  (F) 
finitions  ***#*«*•» 


I  III .  1 1 . 


iumiu 

PSOGliH  LISTING  OF  BBBIOS.A86 


FlIENABES:  Pascal  ^  HB. BIOS. TEXT 

CP/H  =  aBBI0S.A86 


title  'Custoaized  Basic  I/O  Systea* 

Hi 

*  This  Custoaized  BIOS  adapts  CP/H-86  to 

*  the  following  hardware  configuration: 

*  Processor:  iSBC  86/12A 

*  Disk  Controller:  Intel  SBC  202 

*  Babble  aeaory:  MBB-80  with  aeacry-aapped  I/O 

*  Meaory  aodel:  8080 

*  Prograaaers:  J.A.  Neufeld#  B.S.  Hiclclin 

*  Revisions  : 

* 

**«*4i*4i»*«*«***4t*«««*4t«««4i**«««4i*«««*a***»«»***«««**«4i«*« 


;*a**««4i«*«**«*4>***4t:»  EQ  CATES 


:  I 


addr  high  raa 

bdcs“int  fype 

cr  ** 

disk  type 

true" 

false 

If 

aaz  retries 
ibbHO  type 
sector  size 


--  Miscellaneous  equates  — — — — — — - 

egu  OfOOH  ;high  para  user  available  RAM 

egu  224  ; reserved  BOOS  interrupt 

egu  OdH  ; Ascii  carriage  return 

egu  01B  ;type  for  standard  floppy  disk 

equ  -1  ;fcr  conditional  asseably 

equ  not  true  :for  conditional  asseably 

equ  OaH  ; Ascii  line  feed 

equ  10  ;fcr  disk  I/O,  #  of  tries 

equ  02H  :typ€  for  MBB-80  bubble 

equ  128  ;Cp/M  logical  disk  sector  size 


- - -  18251  OSART  console  ports  - — 

CONP  data  equ  0d8H  ;I8251  data  port 

COMP"status  equ  OdaH  ;I8251  status  port 


-  Disk  Controller  ccaaand 


CK  chkint  aask 
CK~hOBe  cld 
DK"read"cid 
DK"writl  cad 


equ  004H 
equ  003B 
equ  004H 
equ  006H 


bytes  and  aasks  (iSBC  202) - 

;aask  to  check  fo^  OK  interupt 
;BCve  to  hoae  position  coaaand 
;re^d  coaaand 
; write  coaaand 


I 
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;  I 


;  I 


INTEL  iSBC  202  Disk  CoDtrcUec  Ports 


;ctrler*s  base  in  CP/M-ai 
;operat4.on  result 


CKP_base  egu  078H 

CKP  result  type  equ  DKP  tase+1  .  ,  , 

CKP“result“byte  egu  DKP"base+3  ;operation  result  byte 

DKP~reset  ~  egu  DKP"tas6*7  ;disk  reset 

DKP~status  egu  DKP~base  ;disk  status 

CKP“5.opb  low  egu  DKP"jbas6+1 

CKP”iopb“high  egu  DKP"base+2 


, _ 


— - Magnetic 

HE  buflen 

HB'maxdews 

HB'aaxpages 

HB~aaxsectors 

H6~pages  sec 

HB^pagesize 

HB  skew 


bubble  characteristics  (HfiB-80) 


egu  144 
equ  7 
egu  641 
egu  80 
egu  8 
egu  IS 
egu  12 


buffer  length  fcr  HEE  sector 
bubble  devices  are  i0-i7 

#  of  pages  on  each  device 

#  of  leg.  sectors  gn  each  dev 
t  of  pages  per  logical  sector 
bubble  device  page  size 

skew  factor  for  page  xlation 

I 


t 

f 


— —  Hagnetic  bubble  cemaa 


HB  chkbusy  cad 
HB“chkint  mask 
HE~inhint~ciBd 
HE'init  cid 
HB^apagS  cad 
HB'read  cad 
HB'resef  cad 
HE'write'cad 


egu 

egu 

egu 

ego 

ego 

egu 

eau 

ego 


020B 

080a 

080H 

01H 

010B 

012H 

040H 

014H 


cd 


bytes  and  aasks  (MBB-80)  — — 

;is  controller  busy  ?  status 
;aask  to  chk  for  hBB  interupt 
; interrupt  inhibit/reset  aask 
; initialize  the  contrelier 
;aulti-page  aode  operation  cad 
:aulti-page  read  coaaand 
; reset  the  controller 
;aulti-page  write  coaaand 


; - starting  addresses - - - - 

;  Leader  bios  is  true  if  asseabling  the 
;  LCAOER^BIOS,  otherwise  EIOS  is  for  the 
;  CPH.STS  file.  This  secticn  will  assign  the 
;  appropriate  eguates  to  the  starting  addresses. 


:  I 


leader  bios 


egu  false  controls  conditional  asa 


IP 

addr  bdos 
addr~bios 
addr  cep 
“ENDIF 


not  loader  bios 

egu  OBO'BH  :BOOS  entry  point  in  CC? 
egu  2500H  ; start  of  BIOS  after  CCP 
egu  OOOOE  ;base  of  CC?  is  0 
;nct  loader  bics 


I? 

addr  bdos 
addr“bios 
addr  cep 
"enBip 


loader  bios 

equ"0406H  ;stripped  BDOS  entry  in  CCP 
egu  1200H  ;start  of  LDBIOS  after  CCP 
egu  0003H  ;base  of  CPHLOAOES 
; loader  bios 


I 


I 


•  %  ♦ 

•  q  f  EqUat  63 
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I 


.«««**«**«**«««««*««  START  CF  CODE  ********#•»»♦•♦**•*•#••* 

CSSG 

orq  addr  ccp 

CCE: 

otq  a'idt_bios 


:  I 


BIOS  Jump  Vector  for  Individual  Routines 


lap  IRIT 
•ap  HBOOT 
=ap  CONST 
=ap  CONIN 
"ap  CONOOT 
ap  LISTOOT 
iap  PUNCH 
jap  READER 
"<Bp  HOME 
ap  SELDSK 
Hap  SETTER 
jap  SETSSC 
’ap  SETDMA 
ap  BEAD 
^ap  WRITE 
=<ap  LISTST 
ap  SECTRAN 
ap  SETDHAB 
Bp  GETSEGT 
ap  GETIOBP 
ap  SETIOBP 


ent^r  £roa  fiCOT  ROM  or  LOADER 
arrive  here  froa  BDOS  call  0 
return  console  keyboard  status 
return  console  keyboard  char 
write  char  to  console  device 
write  character  to  list  device 
write  character  to  punch  device 
return  char  froa  reader  device 
acve  to  trk  00  on  cur  sel  drive 
select  disk  for  next  rd/write 
set  track  fcr  next  rd/write 
set  sector  for  next  rd/write 
set  offset  for  user  buff  (DMA) 
read  a  128  byte  sector 
write  a  128  byte  sector 
return  list  status 
xlate  logical->physical  sector 
set  segaent  base  tor  buff  (DMA) 
return  offset  of  Mea  Desc  Table 
return  I/O  aap  byte  (iobyte) 
set  I/O  aap  byte  (iobytej 


I 


;  'INIT*  juap  vector  destination 

: called  froa:  bios  juap  vector. 

INIT:  Eater  froa  BOOT  ROB  or  LOADER 

para  in  -  none 
;**  para  out  -  none 

;print  signon  aessage  and  initialize  hardware 

BOV  AZ,CS  ;we  entered  with  a  JHPF  so  use 

BOV  SS,AX  :CS:  as  the  initial  value  of  SS:, 

aov  DS,AX  :DS:/ 

BOV  ES. AX  ;and  ES: 

;use  local  stack  during  initialization 
BOV  SPrOffset  stack  base 
cld  :au7o>increaent  on 

;setup  all  interrupt  vectors  in  low  aeaory  tc 
;addrs3s  the  soft/nardware  traps. 


I?  not  leader  bios 

call  Init_Bios_Int  :set"up  interrupts  for  CPM.SYS 
ENDI?  :nct  loader  bios 


IF  loader  bios 

call  Init_Ldr_Int  ;set  up  interrupts  for  LOADER 
ENDIF  {leader  bios 

Iperfora  special  initializations  for  CP/M-86 
call  Load  Daa  Addr  {load  daa  addr  for  devices 
call  Cevice  Inits  {iait  all  devices 
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! 

1 


4- 


: (calls  for  additional  initialization  go  here) 

■ov  BX, offset  esg  signon 

call  Print  hsg  ;'Erlnt  signon  aessage 

aoT  CI.O  ~  ;d€fault  to  dr  A:  on  coldstart 

jip  CCP  ;juBp  to  cold  start  entry  of  CCP 


.«#«********  • HBOOT*  juec  vector  destination  *••*♦•**♦*• 

: called  froe:  bios  jasp  vector. 

HBCCT:  :**  Arrive  here  froe  BeOS  call  nueber  0 

;**  para  in  -  none 
para  out  -  none 

jap  CCP't’B  ;entry  to  CCP  at  coeeand  level 


*e«**««e*«ee*e*e*iveeeee**««**»*e*e*«e*«e***«*e«e«««**»e**» 

*  e 

*  CP/N  Character  I/O  Interface  Routines  * 

2  Console  is  OSABT  (I8251A)  on  3612  ar  ports  08/0A  * 

**«ee*e***e**e*e***e**ee*eee**«*«««*ee»*«««e***ee»e**ee*** 


*ee«**eee*e  'CONST'  juap  vector  destination  eeeeeeeeee* 


; called  free:  bios  juep  vector. 

CONST:  returns  console  keyboard  status 

;*e  para  in  -  none 

;•*  para  cut  -  returns  status  in  AL 

00=not  ready,  Off=ready 
in  AL.CONP  status  ;get  status 
and  AL, 2  ;see  if  ready-bit  1-is  set 

jz  Const  ret  ;if  not.  it  is  zero  and  not  ready 
or  AL,0fTH  ;is  ready,  return  non-zero 

Const  ret: 
ret 


'CONIN'  juap  vector  destination  ♦♦eeeeeee** 

; called  frea:  bios  juap  vector. 

CONIN:  ;**  returns  console  keyboard  character 

para  in  -  none 

para  out  -  returns  character  in  AL 
call  const  :9et  console  status 

tesr  AL.AL  ;is  it  zero  (not  ready)? 

jz  CONIN  ;if  zero,  keep  checking 

in  AL.CONP  data  ;r€ady,  so  tead  character 
and  AL,07fH  ;r€BOve  parity  bit 

ret 


169 


A********************************************************* 

*••*••*****  •COWOOT*  juic  Tector  d«stiaation 

A«*M«**t«i«'««*««*«««***«****««««*««*«**»«»«*«*»««tt«*«*«4l«»* 

; called  froa:  bics  jusp  vector. 

COMOOT:  ;**  write  character  to  console  keyboard. 

;«*  para  in  <*  character  to  be  output  in  CL 
;*♦  para  out  -  none 
in  AL.COMP  status  ;get  console  status 
and  At. 1  ”  ;s€e  if  ready-bit  0-is  set  . , 

5z  COMOOT  ;i£  ze:;c,  not  ready-keep  checking 

BOV  AI.CL  ;lcad  input  para  to  AL  for  out 

out  COMP  data,AL  ;output  character  to  console 
ret  ” 


.*«««***««**  'LISTOOT*  luap  vector  destination  •****♦•♦**» 
.  *«««*«4i«4i**»*««***««*e«**A*«»*«*««**tt*««e**ee«*««*ee*«ee*« 

; called  frca:  bios  juap  vectcr. 

LISTOOT:  ;**  write  character  to  list  device. 

;*♦  para  in  -  none 

;**  para  cut  -  char  to  be  output  in  CL 
;not  lapleaented 
ret 


;*#«***«***«  'LISTST*  luac  vector  destination  *<♦♦♦*•♦*»* 
.*«««««)ti«4t]ii**4i*4i**««**ee*eA*e«««*«e«*«*»»»*e*e«**«***»***»e 

; called  froa:  bios  juap  vector. 

LISTST:  ;**  returns  the  list  status. 

;**  para  in  -  none 

;**  para  cut  -  list  device  status  in  AL 
;  00»not  ready,  Offsready 

;not  iapleaented 
ret 


'POMCH*  juap  vector  destination  ***mm**mmmm 

; called  froa:  bios  juap  vector. 

POMCH:  ;**  write  character  to  the  punch  device. 

para  in  -  cnaracter  to  send  in  CL 
;•*  para  cut  -  none 
;not  iapleaented 

aov  AL,01aH  :return  eof  for  now 

rat 
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.«*«**«««««*  'BEiDER'  ju«E  vector  destination  *•♦**♦•★**• 

: called  froa:  kios  juap  sector. 

REACEfi:  ;  return  character  froa  reader  device. 

;♦*  para  in  -  none 
:*«  para  cut  -  character  read  in  iL 
aov  AL^OIaH  ;retarn  eoz  for  now 
ret 


;  4  44*1*4**444*** *4**4**4*44  4  444444*44*444  4*4  44*444  *4**444444 

.44444444*4*  'GETIOBF*  juBc  vector  destination  *********4* 
. *444*44444444**44444444444*44444*444444444**444*4**4**4444 

; called  free:  kies  iuap  vector. 

GETIOBF:  ;*♦  return  I/O  aap  cyte  (lobyte) 

;**  para  in  -  none 

•**  para  cut  -  returns  iobyte  in  AL 
aov  Al, iobyte  ; iobyte  not  iapleaented 

ret 


.***44*44*444*4444*44*4*4**44*4***4**4*44**44****4*444444** 
;44***4*****  'SETIOBF'  luac  Vector  destination  e********** 

;  444444444* 444*4444*444444 4 44*4444*4*44444444 4444444*444444 

; called  froa:  bios  juap  vector. 

SETIOBF:  ;♦*  set  I/O  aap  byte  (iobyte) 

;**  para  in  -  iobyte  to  be  set  in  CL 
;*4  para  cut  -  none 

aov  iobyte, CL  ;iokyte  not  iapleaented 
ret 


**4**4444444*444*444*44444*4444*4444*44444444444*4*4**4444 

il  * 

*  Disk  Input/Output  Soutines  * 

*  Disk  is  i202  Controller  with  ports  at  078H  for  8  bytes  * 

***444*444444444444444444444444444444*44444444**444444444* 


**444444*4444444444444**4444444*44*444444*44*444*4444444*4 

4*444*44*4*  'SELDSK*  juap  vector  destination  **444*444** 
4*4444*444*444*4*44444444*4*4444444*4444*4444444*44444**44 


SEICSK: 


;called  froa:  bios  juap  vector. 

;**  select  disk  for  next  read/write 
;4*  para  in  >  disk  number  to  select  in  CL 
;**  para  cut  -  address  of  first  dph  in  BX 
:  aph  is  a  disk  parameter  header, 

aov  disk, Cl  ;save  disk  nuaber 

aov  BX,0  {ready  for  error  return 

cap  CL. nun  log  disks  ;beyond  aaz  disks? 
jnb  Seldsk  ret”  {return  if  sc 

aov  CH,0  {double  (n) 

aov  BX,CX  ;BX  =  n 

aov  CL,u  {ready  for  *16,  16  bytes  each  dph 
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Shi  BX,CL  ;n  =  n  •  16 

moT  CXrOffset  dpbass  :address  of  first  dph 
add  BX.CX  :dpfcase  >  n  *  16 

push  BX  :save  dpbase 

;deterBine  type  of  device  this  disk  nuaber  is 
xor  BX,BX  ;cl6ar  BX  of  index 

BOV  BL^disk  :load  disk  nuaber  for  index 

BOV  XL, device  tablet BX]  ;find  type  of  device 


or 


_  _  device  type, disk_type  ;is  this  a  floppy? 
jne  Load  aCbdO  cont  :if  not,  do  tlBB-80  cont  addr 
BOV  Al, dK  logical  tablefBX]  ;get  floppy  disk  # 
BOV  DK  disk,  AL  ;5tcre  floppy  cont  dislc  I 
japs  Slldsk  ret  ;gc  return 
Load  Bbbao  cont:" 

"add  Bl, BL  {double  disk  •  for  word  index 

BOV  AX, MB^logical  tablefBX]  ;g€t  addr  of  cont 
BOV  HB  contbase,Al  {store  as  current  base  addr 
Seldsk_ret : 

po^  BX  {restore  dpbase  for  return 


'HOHE*  juBp  vector  destination  ♦♦***♦***♦* 

{called  froa:  bios  juap  vector. 

HOHI:  {*♦  aove  tc  trk  0  on  curr  selected  drive 

{•♦  para  in  -  none 
{♦♦  parB  out  -  none 

CBp  device  type, disk  type  {is  this  a  floppy  disk? 

jne  flbbSO  Hoae  {If  cot,  hoae  bubble 

BOV  DK  lo  COB, OK  hone  cad  {hoae  the  floppy  disk 

BOV  trackTO  -  _  . 

call  Dk  Execute  Cad 


japs  Hoae  ret 
MbbSO  hoae: 

xor  CX.CX 
call  SETTRK 
Hoae  ret: 

"ret 


{go  return 

{dear  CX, 
{set  track 


>arB  -  track=0 
°or  bubble  »  0 


;*yy*ee*****  'SETTHK'  juap  vector  destination  ♦*♦***♦♦••» 

{called  frcB:  bios  juap  vector,  HCME. 
SETTRK:  {♦*  Set  track  for  next  read/write 

{*•  para  in  -  track  address  in  CX  (CL) 

;**  para  cut  -  none 
aov  track, CL  :store  track  nuaber 
cap  device  type, disk  type  {is  this  a  floppy  disk? 
je  Settrk  ret  {if  So,  just  return 
call  Bbb8TJ_Track_xiat  {bubble,  so  xlat  track->bub# 
Settrk  ret: 
rit 
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.■k'0*m*mm*m**  'SETSEC  juip  vector  destination  *♦♦♦•***••* 

;called  froa:  bios  juap  vector. 

SETSEC:  ;**  Set  sector  for  next  read/write 

;«*  para  in  -  sector  nuaber  in  CX  (CL) 
para  out  -  none 

aov  sectored  :stcre  sector  nuaber 
ret 


.*4*«*«e«***  ’SECTBAE*  luac  vector  destination  *»♦**»•»••♦ 

; called  froa:  bios  juap  vector. 

SECTBAN:  ;**  Transj.ate  logical  to  physical  sector 

;•*  para  in  -  sector  in  CX;  table  at  f DX ] 
;ee  para  out  -*  physical  sector  #  in  BX 
aov  CHrO  ;clear  high  byte 

aov  BX.CX  ;load  input  para  for  return 

test  OX.BX  ;ls  there  a  xlat  to  be  done  ? 

jz  No  sKew  ;if  not,  just  return 

add  Bl,DX  ;add  sector  to  tran  table  address 

aov  BlrCS^l  ;9€t  logical  sector 

japs  Sectran_ret  ;gc  return 
Mo  sJC6V  * 

~  add  BX, 1  ;nc  xlat, CP/S  sect  #0  =>  sect  #1 

Sectran  ret: 
re? 


.^ee********  'SETDSA*  juap  vector  destination  ♦*♦♦♦**»••♦ 
.#e«*««*e«ee«e*«*4»****ee**»«e***e«e«eeeeeee***e«*e*e*ee*ee 

; called  froa:  bics  juap  vector. 

SETONA:  Set  offset  for  user  OSA  buffer 

;*»  para  in  -  CSA  offset  in  CX 
:**  para  cut  -  none 
BOV  daa  offset, CX  ;store  daa  offset 
call  Lold  Daa  Addr  ;update  OSA  info  for  all  devices 
ret  “  ” 


.*4««*««*4t«e**«eee******ai*«eeee*vv*e«e«*«**»*e*ee»»*e*Mi*«« 

'SSTOBAE*  juap  vector  destination  ♦•*♦**•***» 

; called  froa:  bios  juap  vector. 

SETCSAB:  Set  segaent  base  fpr  OSA  buffer 

;♦*  para  in  -  segaent  in  CX 
;**  para  out  -  none 
BOV  daa  segaent, CX  ;store  daa  segaent 
call  Load  Daa  Addr  ;apdate  OSA  info  for  all  devices 
ret  "  “ 
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.»*«**««*«««  'GETSEGT*  juap  vector  destination  *********** 

; called  fros:  bios  iusp  vector. 

GETSEGT:  :**  Return  offset  ox  sesory  desc  table 

•**  pars  in  -  none 

:**  para  out  -  address  of  table  in  BX 
aov  BX« offset  aea  desc  table 
ret  “ 


■k^^n^^nmm***********  ***********************  **************** 


♦ 

■*  ill  I/O  paraaeters  are  setup:  * 

*  disk  is  disk  nuaber  (SELDSK)  * 

*  track  is  track  nuaber  iSETIBK)  • 

*  sector  IS  sector  number  (SETSEC)  ♦ 

*  Each  device  aaintains  its  own  DHi  info  as  required  * 
**  by  its  controller,  using  daa  offset  and  daa  segsent.  * 

BEiO  reads  the  selected  sector  to  the  DMA  address,  * 

*  and  WRITE  writes  the  data  froa  the  DBA  address  to  * 


*  the  selected  sector.  The  BBB-aO  bubble  will  use  diff-  ♦ 

*  erent  routines  to  perform  the  read  and  write  funct-  * 

*  ions.  The  MBB-80  works  with  MB  bub  no  (from  HBB  Track  * 
Xiat)  and  MB  page  no  (froa  Mbb'SedCor  xiat)  -  tlese  “* 

*  values  are  derive?  froa  the  vafs,  track  and  sector.  * 

*  * 


«e**e*^«****  ««*««*«****  4«*«««*e4i*««*«s*e^«*«**«*»4i*iv**4i* 


;***********  tREAD'  iuap  vector  destination  *********** 
•  tt********************4************************************ 

; called  frca:  bios  jump  vector. 

READ:  ;**  Read  a  128  byte  sector 

.**  para  in  -  none 
;*•  para  out  -  return  code  in  AL 
;  00  -  CKf  FF  -  unsuccessful 

cap  device  type, disk  type  ;is  this  a  floppy  disk? 
jne  Bubble~read  ;lf  not,  use  bubble  routine 
BOV  CL, 4  “ 

aov  AL,0K  disk  :coBklne  disk  selection 

sal  AI,CL~  ;witfa  opcode 

or  AL.DK  read  cad  ;create  iopb  for  read 
aov  OK  io  cobTAL  ;load  iopb 
call  Die  Slecute  Cad  ; perform  the  read 
japs  Read  ret  “  ;return 

Bubble  read:  ~  ;use  bubble  routine  to  read 

call  MbbSO  Bead  ;perforB  the  read 

Read  ret;  “ 

“ret 
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.*«***««****  'WRITE*  juap  Tector  destination  **•••*•*••* 

.*«»«*****4i**«««***«**l«*va*«*«A«l»«»«««»*«4i«*»»*«««*»«*»4i**4i 

; called  frca:  bios  juap  vector. 

WRITE:  ;**  Writes  a  128  byte  sector 

;**  para  in  -  none 
;♦*  para  out  -  return  code  in  AL 
;  00  s  OK,  FF  -  unsuccessful 

device  t^j^e,disk  type  ;  is  this  a  floppy  disk? 


fap _ 

ne  Bubble 
aov  CL, 4 
BOV  AI,0K  disk 
sal  Al.CL" 
or  AL.OK  write  cad 
aov  DR  i3_coB,TL 
call  Die  Execute  Cad 
japs  Write  ret  ^ 
Bubble  write;  ” 

call  HbbSO  Write 
Write  ret;  “ 

ret 


e  :lf  not,  use 


iubble  rddtine 
selection 


;c9abine  disk 
;witb  opcode 
;create  iopb  for  write 
:load  iopb 
; perform  the  write 
;retura 

;use  bubble  routine  to  write 
;per£ora  the  write 


I 


j 


•V 

The  following  subroutines  perform  various  specific  * 
tasks  for  the  above  juap  vectors.  * 

* 


DEVICE  INITS  subroutine  * 

;called  from;  IHIT, 

Device_Inits;  ;**  Perform  any  init  necssary  for 

;  all  devices  generated. 

;♦*  para  in  -  none 
;*♦  para  cut  -  none 

;(***  Device  initialization  for  the  iSBC  202  disk  ♦*») 
;load  address  of  the  iSBC  202  iopb  (channel  ccaaand) 
aov  CL, 4  ;load  CL  for  shift 

aov  AX,CS  ;lGad  AX  with  this  segment 

sal  AX, CL  ;BCve  segment  to  high  byte 

add  AX,  offset  DK  iopb  ;offset  of  iopb  (chan  cad) 
aov  DK  iopb  addr.lX  ; store  for  later  use 
:see  if  any  iSBC  202  controller  to  be  initialized 
xor  CX,CX  ;cl€ar  CX  for  counter  in  loop 

aov  CI,nuB  log  disks  ;load  #  of  disk  devices 
Check  i202: 

aov  BX,CX  jindez  into  device  table 

cap  device  tablefBX  ],disk  type  ;i202  disk? 

1e  Init  i202  ;i£  so,  go  init  the  ccntr'ler 

loo?  Check  i202  ;check  next 
japs  Done  i2C2  :nc  1202,  gc  init  abbSOs 
Init  p02: 

“in  AL,DKP  result  type  ;clear  the  controller 
in  AL,DKP“result“byte 

out  DRp  re$ep,^L~;AL  j.s  duaay  for  this  coaaand 
; (***  Deyi3e  initialization  for  the  aBB-80  bubble  **•) 
; initialize  each  HBB>eo  controller  defined 
Done  1202: 

“xor  CX,CX  ;clear  CX  for  counter  in  loop 

aov  CL.nua  log  disks  ;lcad  #  of  disk  devices 
push  ES  “  ;save  register 

Init  abbSO: 


175 


i 

I 


xor.  BX,BX  ;clear  BX  for  index 

oov  BLrCL  :lcad  cent  #  to  BX 

dec  BX  ;suttract  1  for  table 

add  BL,BL  :dcuble  index  foe  word  lookup 

BOT  AX, MB  logical  table[BX]  ;get  cont  addr 
cap  AX,MB~nuXl  ;Is  it  a  null  addr  (place  bolder)? 
je  Next  ibbSO  :i£  so,  go  to  next  cont'ler 
oov  N9  c5ntbase,AX  ;load  to  current  base 
;initiali7e  page  sixe  and  ainor  loop  size 

mov  ES,AX  :load  £S  to  address  bubble 

BOV  AX, MB  aaxpag^s  : pages  per  bubble  device 

BOV  ES: MB?  loopsize  lo,AL  ;Iocpsize  low  byte 
BOV  ES: MBP“loopsiZ€~hi, AH  ;loopsize  hi  byte 
BOV  SS: MBP'pgsize  rig. MB  pagesize  ;load  page  size 
; issue  reset  comaand'to  the'coctroller 

BOV  AL,NB  reset  cad  ;reset  Bask  byte 

BOV  ES: MBP  cand”reg,AL  ; issue  reset  command 
jinitiaiize  each  bubble  device 

push  CX  ;save  CX,  outer  counter 

BOV  CX,HB  Baxdevs+1  ; count  for  loop-#  of  devs 

BOV  AL,0  "  ; device  #  to  initialize 

Per  each: 

BOV  ES:HBP  select  bub.AL  ;select  each  device 
BOV  ES:HBP~cBnd  rig, MB  init  cad  :init  this  device 
push  AXipush  exTpush  33  :sa'7e  bubble# , counter , ES 
call  MbbaO  Wait  ;wait  for  controller 

pop  ES!  pop  CX!  pop  AX  : restore  ES, counter, bubble# 
me  AL  ;next  device  cumber 


push  AXipush  eXTpush  E 
call  MbbaO  Bait 
pop  ES!  pop  CX!  pop  AX 
me  AL 

loop  For  each 
pop  CX  ~ 

Next  BbodO: 

"loop  Init  abbSO 
.  pop  ES 
Device  ret: 
ret 


; dec  CX,  loop  if  not  zero 
; restore  CX,  cuter  counter 

; go  init  next  cont 
; restore  register 


*  «**«*«*  ****«**»***>l>*4i*«***«4i4>«*Wi«4i*««*’V***«*«»4t4t*«* 

*  DK  EXECUTE  CMD  subroutine  * 

•.called  from:  READ,  HRITE. 

Ok  Execute  Cad:  Executes  a  disk  read/write  cemmand 

“  “  para  in  -  none 

para  out  -  status  of  the  op  in  AL. 

; 00=  CK,  FF=  unsuccessful 
Load  retries:  .  ,  , 

“aov  DK  rtry  cnt,aax  retries  ; load  count  for  retries 
;send  iopB  to  disk  controller  via  two  ports  (2  bytes) 
Send.iopb: 

in  AL,DKP  result  type  ;clear  the  controller 
in  AL,DKP"result~byte  ;clear  the  controller 
mov  AX, DK~iopb  addr  ; get  address  of  iepb 
out  DKP  iopb  low,AL  loutput  low  byte  or  icpb  addr 
BOV  Al.lH  ”  ;lcad  high  byte  to  AL  for  output 
out  DKP  ioob  hign,AL  ;out  high  byte  of  iopt  aadr 
;check  f or“interrupt  from  disk  controller 
Disk_lnt:  , 

m  AL.DKP  status  ; get  disk  status 
and  Al,DK“chkint  mask  ; interrupt  sep? 
jz  Disk  idt  Jif  not,  keep  checking 
;see  if  interrupt  signifies  I/O  completion 

in  AL.DKP  result  type  jget  reason  for  interrupt 
cap  AL,00H  Twas  I/C  complete  ? 

jz  Check  result  ;if  so,  go  check  the  result  byte 
m  AL.DKP  result  byte  ;clear  result  byte 
aov  AL,08dH  T<iisk  wasn't  ready  -  load  code 

japs  Retry  ;lcad  err  code,  and  go  retry 

;check  result  byte  for  errors 
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Check  result; 

In  ALfDKP  result  byte  ;qet  result  byte 
and  AL.OfsH  Tcneck  tor  error  in  any  bit 
jnz  Retry  ; found  one,  retry 

;read  or  write  is  ok,  AL  contains  0  for  return 
imps  Dk  execute  ret 

; retry  the~command~until  max  retries  attempted. 

mov  OK  err  code,AL  ;save  error  result  byte 
dec  DK“rtry  cnt  ;d€c  number  of  attempts  sc  far 

anz  Send  iopb  ;if  not  zero,  send  command  again 
max  refries,  no  success  -  issue  error  message 
call  Ok  Print  Err  : print  out  appropriate  err  msg 
in  AL.CQNP  dafa  ; flush  usart  receiver  buffer 
call  ucon  Echo  ;read  upper  case  console  character 
cmp  AL,  •C'*’ 

je  Wboot  lump  ;cancel 
cmp  AL.’tl*^ 

je  Lead  retries  ;retry  max  times  again 
cmp  AL,fr' 

je  Dk  execute  ret  ; ignore  error 

or  ALTOFPH  "  ;s6t  code  for  permanent  error 

jmps  Dk  execute  ret 

Bboot  jump:  ”  ";can*t  make  it  w/  a  short  jump 

3np  Bboot 

Dk  execute  ret: 
ret  ” 


****«*****4>4i4i««%**«*W>***)«>i*«*«**4>***«  #«*«»«  ****«*««****««* 


*  DK  PRINT  ERR 


subroutine 


;called  frem:  Ck  Execute  Cmd. 

Dk  Frint_Err:  Prints  out  disk  error  messages. 

;♦*  parm  in  -  uses  DK  err  code 
;♦*  pars  cut  -  nene  “  ~ 

mov  BL,DK  err  code  ;load  code  for  index  to  table 
mov  BH.O  “  ”  ;cl€ar  high  byte  of  index 

test  BL.OfH  ;s€€  if  er?or  bits  in  loe  nibble 

jz  Use  hi  index  ;error  is  in  high  nibble 
Use  low  indlx:” 


“  mov  BL, PK  epr  loinxfBX]  : get  offset  in  addr  table 
japs  Prinf  it"  ;go  print  the  message 
Use  hi  index;  ~ 

mov  CL, 4  ;shift  four  bits  right 

sbr  BX,CL  ;sbift  it  right 

mov  BL,DK  err  hiinxCBX]  ;get  offset  in  addr  table 
Print  it:  "  “ 

mov  BX,DK  err  table[BX]  ;load  addr  of  message 
call  Prinf  Msg  ; print  appropriate  message 
ret 


IP  not  leader  bios 

INIT  BIOS  INT  subroutine 

;called  from:  INIT.  (if  not  loader  bios) 
Init_Bios  Int;;'*=*  sets  up  the  interrupt  vectors  In  low 

;**  memory  to  vector  soft/hard  interrupts. 
;**  para  in  -  none 
:**  para  out  -  none 

push  DSipush  ES  ;save  t^e  DS  &  ES  register 
mov  iobyt9,0  ;cl€ar  lobyte 
mov  AX,0 
mov  DS,AX 

mov  ES,AX  ;set  ES  and  DS  to  zero 
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»« «  «*« 


;setup  interrupt  0  to  address  trap  routine 
■ov  into  of tset -of f set  Trap  Handler 
B07  intO“segient ,CS 
aov  DI,4" 

mov  51,0  ;then  propagate 

BOV  CX,510  ;trap  vector  to 

rep  BOVS  AX, AX  ;all  256  interrupts 
;BDOS  offset  to  proper  interrupt 
BOV  bdos  int  offset,addr  bdos 
pop  ES  !“pop”DS  ;restore"the  ES  &  DS  register 
ret 

ENDIF  ;not  lcader_bios 

f 

« 

IP  loader  bios 

;*  INIT  Loa  INT  subroutine 

.  ii««*««e«**:it**«*«*«««ae«*B«**4ie*»*e««****«*«e*4i«««*«e*«e*e 

;called  froB:  INIT.  (if  loader  bios) 

Init  Ldr  Int:  ;**  sets  up  the  interrupt  vectors  in  low 
“  ~  ;♦*  Benory  to  vector  soft/hard  interrupts. 

;**  para  in  -  none 
;♦*  parm  cut  -  acne 
;BDOS  cffset  to  prcper  interrupt 

push  DS  ;save  the  05  register 

BOV  AX,0  ;set  to  absolute  low  aesory 

BOV  DS,AX  saalce  it  addressable 


BOV  DS,AX  ;BaKe  i 

BOV  bdos  int  offset -add 
BOV  bdos“int”segBent-CS 
pop  DS  "  "  jrestor 

:issue  aessage  telling  whe 
BOV  BX,  offset  Bsg  i202 
cap  device  table, d^sJc  t 
je  Print  loader  ;is  Zi 
BOV  BX,  offset  Bsg  abb 
Print  loader; 

call  Print  asg  jwrite 
;  (additional  loader  initia 
ret 

ENDIF  ;if  leader  bios 


bdos  int  offset-addr  bdos  ;offset 
bdos“int”segBent-CS  “  ;this  segBent 

DS  "  "  ;r6stor6  DS  register 

_ _ _ _ e _ ^ _ 


aessage  telling  where  loading  froa 

BX,  offset  Bsg  i202  ;assuBe  i202 

device  table, d^sje  type  ;checic  default  disk 

Print  loader  ;is  disk,  print  Bsg 

BX,  offset  Bsg  abb  ;its  the  abbdO 


jwrite  asg  to  console 
er  initializations  go  here 


*  :(i  **  *  I|i3ii  *  *  4n|i  41  *  *  41  *  *  4t  4i  ♦  #  4 9^  3||  4  4^41 4141 * 

^  LOAD  DMA  ADOB  subroutine  * 

; called  froa:  INIT.  SETDMA,  SSTDHAB. 

Load_0Ba  Addr:;**  upon  new  DMA  addr,  updates  all  device's 
;♦*  DMA  words-  channel  coBaands,  etc.,  that 
needed  because  of  a  new  DMA  addr. 

;«*  para  in  ~  none,  operates  using  variables 


;**  dBa  offset  and  daa  segaent. 

;**  oara  3at  -  none,  updStes  var  DK  daa  addr 
; update  iSBC  202  disk  controller  daa  address"  " 

BOV  CL, 4  ;iSBC  202  uses  16-bit  address 

BOV  AX, daa  segaent  ‘.load  segaent 
sal  AX, CL  "  ;acve  segaent  to  high  bits 

add  AX, daa  offset  ;add  in  daa  offset 
BOV  DX  dBa~addr,AX  :stcre  new  daa  addr  -  disk 
;HBB-dO  uses  20-bit  address,  therefore  can  use  the 
;daa_segBent  and  daa  cffset  variables  directly, 
ret  " 
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;*  NBBSO  READ  subroutine  * 

«*««««*««)«*«««*»«  »««***«***««»«** 

;called  froa:  BEAD. 

nbfcSO  Bead:  reads  a  sector  froa  bubble 

“  ;*♦  para  in  -  none 

;*«  para  out  -  status  of  tbe  op  in  AL. 

;*«  OQs  CK,  FF»  unsuccessful 
push  ES  ;sav6  register 

call  HbbSO  Sector  Zlat  ;coapute  ist  page#  of  sect 
;establish  addressability  to  controller 

aor  AX, SB  contbase  ; address  of  ccntroller  base 

BOV  ES,AX~  :Ioad  ES  to  address  bubble 

;set  aultipage  aode 

BOV  ES:aBP  cand  reg,tIB  apage  cad  ;aultipage  aode  cad 
;load  first  page  nuaber  for  transfer 

aov  AX, SB  page  no  ; current  page  nuaber 

aov  ES: SB?  paglsel  lo,AL  ;page  select  lo  byre 
BOV  ES: SBP~pagesel~hi , AH  :page  select  hi  byte 
;set  nuaber  of  pages  lo  transfer  »  pages/sectcr 

aov  ES:C!BP  pagecnt  lo,Mfi  pages  sec  :*pages  to  zfer 
aov  ES: MBP  gagecnt”hi,0  ~  ;hi  oyte  of  #  is  0 

;set  up  daa  address  td  receive  data 


IS  0 


aov  CX.SB  buflen 

push  DS  " 

aov  AX, daa  segaent 

push  Ax  ~ 

aov  BX,daa  offset 


;  count  for  loop-’buffer  size 
;save  CP/a*s  OS 
;get  daa  segaenr 
;save  daa  segaent  DS 
;offset  of  daa  area 


;select  bubble  device  and  issue  read  coaaand 
aov  AI,SB_bub_no  ; current  bubble  n 


; current  bubble  nuaber 
:done  local,  readdr  da: 


pop  DS  ~  ~  ;done  local,  readdr  daa  area 

aov  ES: EBP  select  bub ,AL; select  current  dev  # 
aov  ES:SBP'~cnnd  rig, MS  read  cad  ; issue  read  froa  FIFO 
;vait  for  interrupt  frca  ccntroller 
Bead  int: 

~Bov  AL, ES:nBF  int  flag  :get  interrupt  status 
and  AL.MB  chkint  iask  ; interrupt  set  ? 
jz  Read  int  '  :if  zero,  keep  checking 

;see  if  read  enough  froa  bubble  sector  to  fill  daa  area 
cap  CX,  (MB  buflen  -  sectpr  size)  ;transferred  enough? 
jnz  Bead  one  :if  not,  read  another  byta 

pop  DS  ”  ; restore  CP/M's  DS 

BOV  BX, offset  MB  overflow  ; reset  dest  to  overflow 
;read  froa  MBS  FIFO  buffer  into  daa  area 
Bead  one: 

~aov  AL,ES:MBE  rdata  reg  ;read  a  byte  into  accua 
aov  rSi],  AL  ~  ~  ;ioad  accua  into  daa  area 

inc  BX  ;increaent  index 


aov  rBX],  AL  ~  ~  ;ioad  accua  into  daa  area 

inc  BX  ;increaent  index 

loop  Read  int  :dec  CX,  loop  if  not  zero 

push  ES  “  ;save  ES  for  call 

call  HbbSO  Bait  ;wait  for  controller 

pop  ES  ~  ; restore  ES  after  call 

aov  ES:EBP  cand  reg, MB  inbint  cad  :clear  cont  int 

pop  ES  “  “  ”  ; restore  register 

aov  AL, 0  : indicate  success 

ret 
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f  « 


;*  HBB80  SECTOR  XLAT  subroutine  * 

;called  frca:  NbbSO  Bead.  BbbSO  finite. 
!lbb80_Sector_Xlat ;  ;**  computes  1st  page#  for  a  given  sector 


J** 

xor  AX, AX 
xor  cx,cx 
lov  CL, sector 
xor  DX,DX 
nov  DL, MB  sector 
add  CX,DX“ 
dec  CL 

iz  MbbBO  sx  exit 
Add  sxew:  ~  “ 

“  add  AX, MB  skew 
c  Xc  * 

sbb  AX, MB  naxpages 
jae  Dec  sector 
add  AX,HB  oaxpages 
Dec  sector:  ” 

"  loop  Add  skew 
MbbBO  sx  exit! 

lov  MB  page  no, AX 
ret  “  " 


on  a  singly  chip.  Based  on  80  sectors 
;♦*  on  each  chip  -  sector  *  128  bytes, 
para  in  -  none,  works  on  sector 


para  out  -  none,  updates  MB  page  no 

;set  AX  to  0  to  Ecla  page* 
clear  CX  for  counter 
ctr  for  translation  loop 
clear  OX 

sect#  for  1st  sect  on  trk 
add  1st  sect#  to  log  sect# 
subtract  1  for  the  loop 
sect  1  is  page  0,  no  xlat 

add  skew  between  pages 
clear  carry 
aod  to  #  or  pages 
juap  if  positive  (CP=0) 
went  (-)  ,  add  back  #pages 

dec  sector#, add  skew  again 

store  page  number 


MbbBO  Track_Xlat: 


*  «****«e«*«««**e*ee  «««««« 

*  NBB80  TRACK  XLAT  subroutine  * 

called  frca;  SETTRK. 

*e  computes  bubble  •  froa  track  #.  Gets 
first  bubble  sector  (1-80)  for  that 
**  track  for  later  conversion  to  page  t. 
••  para  in  -  none,  works  on  track. 

**  pra  out  -  loads  MB  bub  nc,HB  sector 
xor  BX,BX  ; clear  BX  for  add~ 

BOV  BL, track  :load  track  -  index 

add  BL, BL  : double  track#  for  index 

aov  AX, MB  track  table[BXj  ;get  word  froa  table 
aov  MB  bu5  no, AH  ; Ipv  byte  »  bubb  device# 

BOV  HB“secTor,AL  ;  6:  ^ 

ret  “ 


iigh  byte  >  1st  sector# 


MbbSO  Bail 


***«*«««* **«««**** *«*««*« ew**************************** 

MBBBO  HALT  subroutine  * 

I  •  ^  1^  it  4iik  4  **  41 4 4  4  ^  m  4  4  ^  Ip  1^41 A  4 

called  froa:  MbbBO  Init,  MbbBO  Bead, 
MbbBO'irite. 

checks  statgs  ol  NBB  cont  for  busy 
:*«  keeps  checking  (wait)  until  not  busy 
oara  in  -  none 
•  para  cut  -  none 

aov  AX, MB  contbase  ; address  of  cont  base 

BOV  ES,AX~  ;load  ES  to  addr  bunble 

34^  Z#* o  t 

aov * AL, BS: MBP  status  reg  ;get  status  register 
and  AL, MB  chkHusy  caH  ; is  it  all  zeros  ?  ■ 

iz  See  zeTo  ~  ; if  sc,  keep  checking 

Cent  Busy; 

~aov  AL, ES;MBP  status  reg  ;get  status  register 
and  AL,MB  chkpusy  cad  isee  if  busy,  and  tp  aask 
jnz  Cont  Husy  ~  ;  if  busy,  check  again 

ret  “ 
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»  »  »  tr  »  »  » 


NBB80  HRIIE  subroutine  * 

; called  frca:  WRITE. 

tSO  Write:  writes  a  sector  to  babble 

;**  para  in  -  none 

;**  para  out  -  status  of  the  op  in  AL. 

;««  oQs  CK,  FF»  unsaccessful 
IF  not  loader  bios 

push  ES  ~  :save  register 

call  HbbSO  Sector  Hat  ;get  1st  page#  of  sector 
;establish  addressability  to  controller 

B07  AXfHB  contbase  ; address  of  controller  base 

ao7  BS,AX~  :load  BS  to  address  bubble 

;set  aulticage  aode 

aoT  |S:  BBp  cand  reg,I)B  apage  cad  ;aultipg  aode  cad 
;load  first  p3ge  nuaber  fdr  transfer 

ao7  AX,BB  page  no  ; current  page  nuaber 

ao7  ES: MB?  pagisel  lo,AL  ;page  select  lo  byte 
B07  ES: HBP'pagesel  hi. AH  :page  select  hi  byte 
;set  nuaber  of  pages  fo  transfer  »  pages/sector 

BOV  ES:NBP  pagecnt  lo^BB  pages  sec  ;# pages  to  zfer 
BOV  ES:  HBP'pagecnt  hi.O  **  :bi  5yte  of  #  is  zero 
daa  address  fcr  transfer 


;set  up _ _ _ 

BOV  CX.SB  buflen-l 
push  DS  ” 

BOV  AX. daa  segaent 
push  AX^ 

aov  BXrdaa  offset 


; count  for  loop- write  size 
;save  CP/B's  Os 
;get  daa  segaent 
:save  daa  segaent  DS 
;address  of  daa  area 


;select  babble  device  and  issue  write  cad 

aov  AL,aB  bub  no  ; current  babble  nuaber 

BOV  ES:HB?  select  bub,AL  ; select  current  dev  i 
pop  DS  ~  ;readdr  daa  area 

BOV  Al,rBX]  :loa4  first  byte 

BOV  ES:HBP  wdata  reg«AL  ;write  byre  to  BBB  buff 
inc  BX  ~  "  ;;.ncreaent  index 

yov  ES:BBP  cand  reg,SB  write  cad  ;send  write  to  HBB 


_ _ jeg,aB  write  c 

:wait  for  intdrrupf  ffca  dcntrcller 
Write  int: 

aov  AL,ES:aBP  int_flag 
and  AL.HB  chkint  aask 
jz  Write  Int 

;writa  into'HBB  FIFO  buffer 
BOV  AL»fBX] 

fov  ES:aBP  wdata  reg«AL 
nc  BX 

loop  Write  int 
pop  DS 
push  ES 

call  nbbSO  Wait 
pop  ES  ~  , 

BOV  ES:(!BP  cand  reg^BB  in 
pop  ES  "  "  "  ‘ 

aov  AL,0 
ret 

ERDIF  ;not  loader  bios 


get  interrupt  status 

interrupt  set  ? 

if  zero,  keep  checking 

froB  daa  area 

byte  froa  daa  to  AL 

write  a  by^e  to  BBB  buff 

increaent  index 

dec  CX,  loop  if  net  zero 

restore  CP/B*s  DS 

save  ES  for  call 

wait  for  controller 

restore  ES  after  call 

Dint  cad  ; clear  cont  int 

restore  register 

return  success  code 


PRINT  BSG  subroutine  * 

0m*******m**m*m*m0*9*m0mit0m*m***0mmm*mm*mm9»m**mm*m***mmm 

; called  fica:  INIT,  Ok_Print_Err , 

;  Trap  Handler. 

Print  Bsg:  ;**  Prints  a  aessage  to  the  console. 

~  ;**  para  in  -  address  of  aessage  in  BX. 

para  out  -  none 

BOV  al.CBX]  ;g€t  next  char  froa  aessage 
test  AL,AL  ;is  it  zero  -  end  of  aessage  ? 


jz  Pasg  ret 
■ov  CL, XL 
push  BX 
call  COMOUT 
pop  BX 
inc  BX 

japs  Print  Bsg 
Pasg  ret:  " 

ret 


;if  zerc  return 
{lead  para  for  call 
:save  address  of  aessage 
;print  it 

;r'sStor€  address  of  aessat 
;next  character  in  aessagi 
;n€zt  character  and  loop 


.*«>k***4i4i«*«***********;r«e«*4i««»*  *«**««*««»«*»**«***•«»«**« 

;*  TRAP  HANDLER  suhrcutine  * 

;  called  froa:  Vectored  to  froa  CP/H  interrupt 
Trap  Handler:  handles  all  traps. 

;♦*  para  in  -  none 
;•*  para  out  -  none 
cli  ; block  interrupts 

aoT  kl,CS 

aoe  DS,AX  :9et  our  data  segaent 


aoT  BX, offset  asg  inttrap 
call  Print  Hsg  :7o  print  it 
hit  ~  :harastcp 


hit  :hardstcp 

:*  DCOM  ECHO  subroutine  * 

;**•♦***•*♦*»♦*»♦  ik»***aeeee*******e**eeie»**********e»**e*ee 

; called  frea:  OK  Execute  Cad. 

Dccn  Echo:  ;**  get  and  echo's  console  char  and  shift 

;**  to  upper  case. 

.«*  para  in  -  none 


none 


:**  para  out  -  returns  char  read  in  AL 
call  COMIN  ;9et  a  console  character 

push  AX  ;save  input  para 


aov  CL.AL 
call  CONOOT 
pop  AX 
cap  AI,'a' 
jb  Ocon  ret 
cap  AL,‘*’z* 
ja  Ocon  ret 
sub  Al,''a'-'A 
Ocon  ret : 
ret 


;lcad  para  for  call 
:echo  to  console 
;rfistore  input  para 

;less  than  'a*  is  ok 

;greater  than  *z'  is  ok 
;else  shift  to  caps 


DATA  SEGBENT  AREA 


3ata_of fset 

’  DSEG 

org 


equ  offset  $ 

data_offset  ;contiguous  with  code  seg 
- Variables - - - - - - - 


include  config.def  ^configuration  table  for  all  devices 
device  type  db  disk  type  :type  of  dev  (default«f Icppy) 
disk  ~  db  0  :disk  nua^er 

DK  disk  db  OOH  ;fIoppy  disk  controller  disk  * 

DK'err  code  db  OOH 


DK  err  hiinx 

db 

DK_err_loin  x 

db 

db 

DK_err_table 

dw 

dw 

dw 

dw 

DK_ioFb_addr 

dw 

:This  is  the 

iSBC  20 

CK  iopb 

db 

DK  ic  coa 

db 

DK'secs  tran 

db 

track  ~ 

db 

sector 

db 

DK  daa  addr 
;Bnd  cl  iopb 

dw 

DK  rtry  ent 
daa  offset 

db 

dw 

daa'segaent 

dw 

ictyte 

db 

local  stack 

rw 

stack^base 

equ 

6b  bub  no 

rb 

MB~conf base 

dw 

HB“overflow 

rb 

HB'page  no 

rw 

_ 

OOH,020H.022H(OOH.024H,OOH,OOH,OOH.026H 

0OH,C2B,O4H.O6HfOeH,OaH.Ocfl,O€H.Ol0H 

012H,014H,oUH.Ol8H'01aa,01cH,01eH 

€rO,er  1,ei2,eE3,ez4,er5 

er6,€r7 ,er8,ec9, crA.erB 

erC.6r0.eE£,ezF«€ZlO,er20 

eE40,eE80 

0  ;addE  of  iopb  (channel  coaaand) 


080H 

0 

1 

0 

0 

OOOOH 


\wucauuvA  wwaiBcaeau  9  a^j  w^oj 

;iopb  channel  word 

:naBber  of  sector^  to  xfer 
;trac]c  to  read/write 
;sector  to  read/write 
;daa  addr  for  iSBC  202 


0  :dislc  error  retry  counter 

0080H  ;0(1A  offset  (default) 

0  :DaA  segeent 


32 


i local  stack  for  initialization 


;bubble  device  nueber  0-7 


'ler 

:flw 


_ ^  .  P494  nuaber 

_  -  .jubble  sector  nuaber  (1-80) 

;Each  entry  in  the  track  table  corresponds  to  one  of  the 
;24  tracks  on  the  HBB-60.  Ihe  1st  byte  in  each  entry  is  the 
; bubble  nuaber;  the  2nd  byte  in  each  entry  is  the  starting 
; sector  nuaber  for  that  track  on  that  bubble  device. 


HB  track  table 


dw 

dw 

dw 

dw 


OOOOH, 00 laB, 00348, 0100H,011aH,0134H 
0200H,02Ja8, 02348,03008, OilaH, 03348 
04008, 041a8,0434H,OS008,OS1a8^ 05348 
06008, 061a8, 06348, 07008,0 71aH, 07348 


4rC 
€r  1 

er  i 

er4 

erS 

er6 

er7 

er8 

erS 

erA 

erE 

ere 

erC 

erE 

erE 

erlO 

er20 

er40 

erSO 

Bsg_inttrap 


string  data  area  for  console  aessages 


db 

a 

equ 


egu 

equ 

tr 

equ 


equ 

equ 

11“ 

db 

db 

db 

il 

db 

db 

db 


cr.  If 

Sf;if 

erO 

cr.lf 

ero 

erO 

cr.  If 

erO 

cr.lf 

erO 

erO 

erO 

cr,lf 

cr,l£ 

cr,lf 

cr,lf 

cr,lf 

•lat| 

cr,lf 


, ' Mull  Error  ??'  ,0 
, 'Celetcd  Becord  :*,0 
, ‘Cac  Error  :*,0 


'Seek  Error 


,0 


, 'Address  Error  :',0 
, ' ID  CBC  Error  ; • , 0 


'  ,0 
•  ,0 


,'Mo  Address  Hark 
,'Cata  Hark  Error 
, 'Data  Overrun-Underrun 
, 'Htite  Protect  :',0 
,'licjts  Error  :',0 
Drive  Not  Beady  : '  ,0 

rrupt  Trap  Halt* 

#  0 


,0 
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iisg_slgnon 

■sq  1202 
asq^atb 


ENDIF 


loader  bios 
db  cr71f»cr,lf 

db  'CP/N-e6  Version  1.0*  »<?r,  If.O 
db  'Loading  CF/H  fros  an  iS&C  202. . ' «cr. If ,0 
db  'Loading  CP/(1  fro  an  HBB-80. . ',cr,lr  ,0 
: loader  bios 


« 


IF 


asg_signon 


ENDIP 


not  loader  bios 
db  cr«lf,cr,lf 

db  *  Systes  Generated  11/05/81' 

db  cr,lf . ' dodified  for  iSBC  202  Cisk  and  ' 
db  'MBB-80  Bubble' ,cr, If ,0 
;not  loader_bios 


jread  in  disk  definitions 
include  dkpre.lib 


******  Systes  Heaory  Segment  Table  ♦♦***♦ 


sec  desc  table 


last  offset 
tpa  segment 
tpa“length 


db  1  : 1  segments 

dw  tpa  segment  ;  1st  seg  starts  after  BIOS 
dw  tpa~lengtb  ;and  extends  to  high  BAB 
egu  offset  S 

egu  (last  offset'** 04 OOHe  15)  /  16 
aqu  addr_liigh_raa  -  tpa_segment 

db  0  ;for  GENCMC  to  fill  last  address 


*  end  of  variables  ************************* 


*^0mai***m************************************************* 

*  DOHMY  DATA  SECTION  • 

*e«*««********«**«*«***4t«««*4i*«**»«««««**e  *«*«*««**«»«***« 


OSEG  0 

org  0 


;absclute  low  memory 

;start  CP/M  interrupt  vectors 


into  offset  rw 

intOlsegment  rw 

rw 

bdcs  int  offset  rw 
bdcs"iat“3egsent  rw 


1 

1 

:pad  to  bdos  call  vector 
2*(bdos  int  type  -  1) 

1  ;addf  of  bdos  int  call  offset 

1  :addr  of  bdos~'int  call  segment 


;*  SB3-80  CCNTEOLLER  AND  PORTS  * 

*  ESEG 


N5P  pagesel  Ic 
HBP  pagesel  hi 
Bfii'cmnd  reg 
BBP'rdata  reg 
H3P”wdata  reg 
aSP  status  reg 
BBP"pagecnf  lo 
a3i”pagecj)t  hi 
BBP  Icopsiz'S  lo 
BBE^lcopsizelhi 

BBP_pqsize_reg 

B6E  select  bub 
B3Plint_flag 


rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rw 

rb 

rw 

rb 

equ 


:1s  byte  for  page  select,  (0) 
:as  2  bits  for  page  select,  (1) 
:coaaand  register,  (2) 

:read  data  register,  (3) 

;write  data  register,  (U) 
;statu3  register,  (3) 

;ls  byte  for  page  counter,  (6) 
:ms  2  bits  for  page  counter. 


Ea( 
oi 


BBP  select  bub 


:1s  byte  for  minor 
;as  2  bits  for  min 
;internal  use (page 
:pag€  size  regi 
;ri  use  only,  ,  . 
:two  uses:  select 


loop 

loor 


.  pos 
ster,  ( 
(D,E- 


size, 
size.  I 
(A, 6) 


ubble  dev 


:  interrupt  flag 


(F) 

(F) 
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**♦*♦’•***  end  of  Controller  and  Port  definitions  *♦**•**•• 


A  *«*****«***««*«««««««*«*««««*»««**«»«»»««*** 

*  End  of  CP/a-86  Custoaized  BIOS  ♦ 

END 

FIIEM&aBS:  Pascal  »  dkpra . def . text 

CP/M  3  dkpra. def  »>  dkpra. lib 

The  following  is  the  disk  definition  for 
the  castoaized  BIOS,  CP/H-86.  It  is  toj;  the 
Intel  202  disk  controller  (double  density) 
and  the  BBB-SO  aagnetio  bubble  device  cont¬ 
roller.  DD  drives  are  *0  and  #2,  and  the 
bubble  is  *1.  This  definition  ingludes  all 
pl^ysical  paraaeters  for  each  device  as  req¬ 
uired  by  CP/M-86  for  its  'GENDEP*  pycgraa. 

A  file  produced  by  'GENDEF*  froa  this  rile 
is  included  in  the  BIOS  during  asseably. 

See  CP/H-d6  annuals  for  explanations. 


disks  3 
diskdef 
diskdef 
diskdef 
endef 


0,1 ,52,, 2048, 24 3. 12 8, 128,2 
1,  1,26, ,1024,71,32,0,2 
2,0 


;FIl£liAIlES:  Pascal  «  CONFIG. DEF. TEXT 

;  CP/H  »  CONFIG. DEF 

# 

;This  file  describes  the  logical  aappings  between 
:CP/a  disk  nuabers  and  the  disk  device-dependent 
; inforaation.  CF/N-86  allows  for  up  to  16  disks, 

;nupbe]ped  froa  0  to  1$  deciaal. 

:Tbis  lapleaentation  is  generated  for  3  CP/d  disks. 

• 

nuB_log_disks  egu  3  ;*  of  logical  CP/H  disks  defined 

• 

;The  following  table  describes  what  type  of  device 
; corresponds  to  each  logical  CP/H  disk  ngaber.  There 
;i08t  be  one  entry  for  each  CP/H  disk  defined,  with  a 
;iaxiBUB  of  16  entries.  This  lapleaentation  only  recog- 
;nizes  two  types:  ISEC  202  and  HB6-eO  disks. 

;CP/H  disk  #6  and  *2  aap  to  iSBC  202,  while  CP/H  disk 
;*1  aaps  to  an  HBB-80. 

<levice_tabl9  db  disk^type  ,Bbb80_type,  disk_type 
• 

I  The  following  table  aaps  logical  CP/H  disk  nuabers  to 
;iSEC  202  controller  disk  numbers  (0-3  only,  since  this 
; iipleaentation  has  1  iSBC  202  controller).  All  CP/H 
;disk  nuabers  oreceeding  the  last  iSEC  202  disk  aust  have 
:an  entry  --  null,  if  not  an  iSBC  202  disk. 

ms  iipleaentation  defines  CP/H  disk  #0  and  #2  to 
C  202  controller  disk  nuabers  #0  and  #1. 

fix  null  egu  OffH 

ORllogical.table  db  00H,0K_null, 01H 

:The  following  table  naps  logical  CP/H  disk  nuabers 
;tc  HEB-80  controller  base  segaent  addresses.  All 
;CP/n  disk  nuabers  defined  must  have  an  entry  (fpr 
; initialization)  —  if  no  HBB-80  exists  at  a  logical 
;CE/H  disk  nuaber,  then  the  null  entry  aust  exist. 
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AEPEJDII  F 

PROGBiB  LISIIHG  OF  BB80ROH.A86 


FIIFNAHES:  Pascal  =  NBSOECH.IEXT 

CP/B  »  BB80BOB.A86 


titl3  'Custonized  SOB  Boot  Loader* 


BBB-80  Controller 


This  Custoaized  ROB  leader  for  CP/B~86  has 
the  following  hardware  configuration: 

Processor:  iSEC  86/12A 

Disk  Ccntroller:  Intel  SBC  201  or  202 
Babble  aeaory:  BBE-80  with  aeBcry-aapped  I/O 
Beiory  aodel:  8080 

Progranaers:  J.A.  Neufeld,  B.S.  Hicklin 
Revisions  : 

****«»««*»**« e****************************************** 


«««*«***«  ***e««**«***4i4>««»#a«e*e«««««*«**« 

This  is  the  BOOT  BCB  which  is  resident 
in  the  957  acnitor.  To  execute  the  boot 
the  Bonitor  aust  be  brought  on-line  and 
then  control  passed  by  gtfd4:0  or  by  * 
gffd4:0004.  The  first  aonitor  coaaand  * 
will  boot  to  an  iSEC  202  disk  and  the 
second  coaaand  will  boot  to  an  BBB-80. 
First,  the  ROB  aoves  a  copy  of  its  data 
to  RAB  at  location  OOOOOH,  then  it 
initialises  the  segfent  registers  and  the 
stack  pointer.  The  i8259  peripheral  int- 
rupt  controller  is  setup  for  interrupts 
at  JOB  to  ■ 


and  edge-tri( 
terrupt)  BOd< 


17H  (vectors  at  00040H-000|PH) 
igesed  autOTEOi  (end  of  in- 

- _ I  with  all  interrupt  levels 

aasked-off.  Next,  the  appropriate  device 
ccntroller  is  initialized,  and  track  0 
sector  1  is  read  to  deteraine  the  target 

faragraph  address  for  L^AOEB.  Finally, 
he  loader  on  track  0  sectors  2-26  and 
track  1  sectors  1-26  is  read  into  the 
target  address.  Control  then  transfers 
to  the  LOADER  prcgraa  for  execution.  ROB 
0  contains  the  even  aeacry  locations,  and 
BOB  1  contains  the  odd  addresses.  BuOT 
BOB  uses  RAB  between  OOGOOR  and  OOOFFH 
(absolute)  for  a  scratch  area. 
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AM 


■*«***«*««*  *»**«*«*«* 


EQUATES 


*«««**«»»*»*»«»«»«««»*««« 


nisc€llaxi60us  equates 


cr  equ  OdH 

disk  type  equ  OlH 

If  “  equ  OaH 

abbSO  type  equ  02H, 

rcase?  equ  0££d4H 

sector  size  equ  128 

start  ?rk1  egu  0c8H 


;  Ascii  carriage  returc 
:type  fo^  iSBC  202  disk 
;  Ascii  line  feed 
:type  for  HB8-60  disH 
:case  of  this  code  in  BOB 
;CF/B  sector  size 
;of£set  for  trk  1,  fcr  DBA 


-  1825  1  OSAHT  console  ports - 

COMP  data  equ  0d8H  ;I8251  data  port 

COMP^status  equ  OdaH  ;I8251  status  port 

t  I 


-  Disk  Controller  command  bytes  and  masks  (iSBC  202)  - 

OK  chkint  mask  equ  OOUH  ;mask  to  check  for  OK  interupt 

CK~home  cld  egu  003H  ;moTe  to  home  position  command 

0K~read~cnd  equ  004H  :read  command 

I 


INTEL  iSBC  202  Cisk  Controller  Ports 


DKP  base  equ  078H 

DKP'result  type  equ  DKP  base+1 
DK?“result~byte  equ  DKP  tase+3 
DKF“reset  ~  equ  DKP  base-*’? 

DKP~status  equ  DKP”bas6 

DKP~iopb  low  equ  DKP~base+1 
DKP”iopb~high  equ  DKP  base'*’2 


ctrler's  base  in  CP/M-8 

operation  result  type 

operation  result  byte 

d^sk  reset 

disk  status 

low  addr  byte  cf  iopb 

high  addr  byte  cf  iopb 


i 

I 


Magnetic  bubble  characteristics  (BBE-dO) 


BB 

MB' 

BB' 

MB' 

MB' 

MB' 

MB' 

MB' 

MB' 


buflen 
contbase 
mazdevs 
mazpages 
pages  sec 
pagesize 
tOsI  page 
t0s2“page 
tisl  'page 


equ  144  : buffer  length  for  MBB  sector 

equ  08000H  :sega6nt  base  addr  fcr  ccntr 
egu  7  ; bubble  devices  are  i0-*7 

equ  641  ;#  of  pages  on  each  device 

equ  8  ;#  of  pages  per  logical  sector 

egu  13  ;bubble  device  page  size 

equ  0  ;starting  page#  for  trk0,sect1 

equ  12  ;starting  page*  for  trk0,sect2 

equ  312  ;starting  page#  for  trk1,sect1 


- - Magnetic  bubble  ccmmand  bytes  and  masks  (BBB-80) - 

S  I  I 

HE  chkbusy  cmd  equ  020R  ;is  controller  busy  ?  status 
HB~chkint  mask  equ  080H  ;aask  to  chk  for  MdB  interupt 
ME'inhint^cmd  equ  080H  ; interrupt  inhibit/reset  mask 


HB  init  cad 
NB'apagi  cad 
i1B“reaa  cmd 
tIB“ressf  cad 


agu 

agu 

agu 

agu 


01H 

010H 

012B 

040H 


:iiiitialize  tha  contzcller 
:aulti'page  aode  operation  cad 
:aulti-paga  read  coaaacd 
; reset  the  controller 


; - —  INTEL  i8259  prograaaable  Interrupt  Controller 

lie  59p1  agu  OCOb  :8259a  port  0 
PIC~59p2  egu  0C2h  ; 8259a  port  1 
;  I 


BNTBT  POINT  ANC  NAIN  CODE  ***************** 


CSBG 


roBseg 


;Enter  here  with  g£fdb:0  coaaand  for  iSBC  202  boot 
aov  DL, disk  type  ;set  boot  type  to  disk 
japs  Start  Boot  :go  start  coae 
; Enter  here  with  gffd4;0004  coaaand  for  llBB-80  boot 
ao7  DI« abodO  type  ;set  boot  type  to  abbSO 
Start  boot: 

;ao7e  our  data  area  into  BAB  at  0000:0200 

aov  AX,CS  ;point  DS  to  CS  for  source 

aoT  DS,AX 

aoY  Slydatabegin  ; start  of  data 

ao7  01, offset  raa  start  ;offset  of  destination 
ao7  AX,0  ;3et  dest  segaent  (ES)  to  0000 

ao?  BS,AX 

aov  CX,data  length  ;hoH  auch  to  aove  in  bytes 
rep  aovs  AL7AI  :aove  froa  eproa,  byte  at  a  tiae 

:set  segaent  registers  and  initialize  the  stack 

B07  AX,0  ;set  DS  segaent  to  0000.  now  in  BAH 

aoT  OS, AX  ;data  segaent  now  in  BAB 

BOV  SS,AX 

BOV  SP, stack  offset  :init  srack  segaent/point er 
cld  ,  “  ;cl6ar  the  direction  flag 

;Setup  the  3259  Prograaaable  Interrupt  Controller 
aov  A1,013H 

out  PIC  59p1,AL  ;8259a  ICH  1  8086  aode 

aov  AI.UIOH 

out  PIC  59p2,AL  ;8259a  ICB  2  vector  40-5F 
aov  Al.TJIfH 

out  PIC  59p2,AL  ;8259a  ICN  4  auto  EOI  aaster 
aov  Al.TJffH 

out  PIC_59p2,AL  :8259a  CCN  1  aask  all  levels  off 
****^Hfm*****  branch  to  SEIECTEC  OEVICE  FOE  BOOT  *♦*♦♦♦**** 


:deteraine  if  booting  to  iSEC  202  or  to  a  MBB-80 
cap  01, disk  type  ;is  this  a  1202? 
jne  Boot_MbB80  :if  not,  boot  to  abb80 

■**int*ilt****^r******  iSEC  202  BOOT  CODE  »********♦*♦*♦*♦*♦*•* 


Boot  1202:  :also  return  here  on  fatal  errors 

;Beset  and  initialize  the  iBDS  800  Diskette  Interface 
in  AL,  DKP  result  type  :clear  the  controller 
in  AL.DKP  result  byte 

out  DKP  reset, AL  TAl  is  duany  for  this  coaaand 
:hone  the  ISBC  2o2 

aov  DK  io  coa,DK  hoae  cad  :load  lo  coBaand 
call  CK  Execute  Cad  ~  :hoBe  the  disk 
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aov  OK  io  coa,0K  read  cad  :all  io  now  reads  only 
;get  tracf  07  sectof  1#  fhe  GENCMD  header  record 

nov  BX, offset  genheader  ; offset  for  1st  sector  OHA 
aov  DK  daa  addr,BX  ;store  daa  address  in  lopb 

aov  DK'secs  tran,1  ; transfer  1  sector 

aov  DK“sector,1  ; start  at  sector  i1 

call  OK  Execute  Cad  ; read  track  0,  sector  1 

:get  track^O,  sector  1,  the  GENCBO  header  record 
aov  ESpabs  location  ;segnent  loc  |or  LCAOEB 

aov  AXpES  **  ;to  AX  to  aanipulate 

aov  CL, 04  ; aust  xlat  to  i6-bit  addr 

sal  AX, CL  ; shift  segment 

aov  DK  daa  addr, AX  ; store  daa  address  in  iopb 

oov  OK'secs  tran,25  ;transfer  25  sectors 

aov  0K“ sector, 2  ;start  at  sector  #2 

call  OK  Execute  Cad  ;read  trk  0,  sects  2-26 

;get  trk  17  sect  1-26,  put  at  next  place  in  BAM 

aov  AX,ES  ;conpute  offset  fcr  track  1 

add  AX, start  trki  ;add  in  what  already  read 

aov  CL, 04  “  ;aust  xlat  to  16-bit  addr 

sal  AX, CL  :shift  segment 

aov  OK  daa  addr, AX  ; store  dma  address  in  iopb 

oov  DK'secs  tran,26  ;transfer  26  sectors 

oov  DK~sector,1  ; start  at  sector  #1 

oov  OK” track,  1  ; start  at  track  #1 

call  DK  Execute  Cod  ;read  trk  1,  sects  1-26 

jop  Junp_To_Loader  ;go  pass  control  to  loader 

NBB-80  BOOT  COOE  eeeeeee************** 

Boot  MbbBO; 

~aov  AXpBB  contbase  ;load  base  addr  of  BBB-BO  cent 
aov  ES,AX~  ;  sake  segment  addressable 
;initializ9  the  BBB-00  controller 
.‘initialize  page  size  and  ainor  loop  size 

aov  AX, MB  aaxpages  : pages  per  bubble  device 

aov  ES: MB?  loopsize  lo,AL  ;Iccpsize  lew  byte 
oov  ES: MBP'loopsizc'hi, AH  ;loopsize  hi  byte 
oov  SS: MBP~pgsize  reg.HB  pagesize  ;load  page  size 
; issue  reset  coomand“to  the“controiler 

oov  AL,NB  reset  cod  ;reset  mask  byte 

oov  E^:HB?  cond”req,AL  ; issue  reset  comaand 
;initialize  each  bubble  device 

aov  CX,MB  oaxdevs^l  ; count  fcr  locp-#  cf  devs 

aov  AL,0  ”  ; device  #  to  initialize 

Fcr  each: 

~  aov  ES: HBP  select  bub,AL  ; select  each  device 
aov  ES:MBP~cand  reg,MB_init  cad  :init  this  device 
push  AX  ”  "  :save  bubble# 

call  MbbBO  Wait  ; wait  for  controller 

pop  AX  ~  ; restore  bubble# 

me  AL  ;next  device  number 

loop  For  each  ; dec  CX,  loop  if  net  zero 

;get  track  sector  1,  the  GENCMD  header  record 
aov  BX,  Offset  genheader  ;addr  of  dest  in  BAM 


aov  AX, MB  tOsI  page 
aov  CL,  1  ”  ~ 

aov  CH, 1*MB  pages  sec 
call  MnbBO  Kead  “ 


;get  trk  0,  sect  2-26,  put  at  abs  loader  address 
aov  BX, abs_location  :frca  GENCMO  header  rec 


aov  BX,abs  location 
aov  CL, 4 
sal  BX,CL 

aov  AX, MB  t0s2  page 
BOV  Cl, 25“  “ 


page  #  for  trk  0,  sect  1 
transfer  one  sector 
#  of  pages  to  transfer 
read  trie  0,  sector  1 


convert  to  16- bit  addr 

shift  segment 

page  I  for  trk  0,  sect  2 

transfer  25  sectors 

;f  of  pages  to  transfer 


aov  CH, 25*MB  pages  sec  ;#  of  pages  to  transfe 
call  MbbBO  Bead  “  iread  trk  0,  sects  2-26 
;get  trk  1,  sect  1-26,  put  at  next  place  in  HAM 
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Dov  5X*abs  locatioQ 
add  BX, start  trkl 

BOV  CL, 4 
sal  3X,CL 

BOV  AX, MB  tisl  page 
BOV  Cl, 26“  “ 

BOV  CHy26*[IB  pages  sec 
call  MobSO  Read 


;addr  of  dest  in  RAH 
;add  those  already  read 
;convert  to  16-bit  addr 
; shift  segaent 
;page  #  for  trJc  1,  sect  1 
;trans£er  26  sectors 
;*  of  pages  to  transfer 
;r3ad  trk  1,  sects  1-26 


PASS  COHTBCL  TO  LOADER  ♦***#♦♦**♦♦♦♦♦*•#•* 


Jump_To  Loader: 

BOV  ES,abs  location  ; segaent  addr  of  LOADER 

BOV  leap  segaent-ES  ;load 

;setup  far  54np  vector 

BOV  leap_o f rset - 0  ;cffset  of  LOADER 

jmpf  dword  ptr  l€ap_offset 

I  *  at  **:****■*****  END  OP  MAIN  CODE  ♦♦♦♦♦♦********e****»»e 


;**«*«««*««*  BEGINNING  OF  SUBROUTINES  ♦**♦*♦**♦»♦♦*♦•*♦♦*** 


;  '*«4«**e*4>«***«****iti**«]k**««««4[4i««i(t*e«4t««*4t4ie****««4(««***** 

;*  CONIN  subroutine  * 

.■ititiifitm*****'*i^*************n*-**^****m**mm********’¥***m****** 

;called  frca:  Ck  Execute  Cad. 

Conin:  returns  console  keyboard  character 

;*♦  para  in  -  none 

para  out  -  returns  character  in  AL 
in  AL.COMP  status  ;get  status 


and  Al,2 
jz  Conin 
in  AL.COUP  data 
and  AL,07f’H 
rat 


fee  if  ready-bit  1-is  set 
f  not,  it  IS  zero  and  net  ready 
ready,  sc  pead  character 
reaove  parity  bit 


;*  CONOUT  subroutine  * 

;called  frca:  Print  Msg. 

CoECUt:  ;*♦  write  character“to  console  keyboapd. 

;♦*  para  in  -  character  to  be  output  in  CL 
;*•  para  cut  -  none 
in  AL ,CONP_status  ;get  console  status 
and  AL,  1  ;se€  if  ready-bit  0-is  set 

jz  CONOUT  ;if  zero,  not  ready-keep  checking 

aov  AL.CL  ;lcad  input  para  to  AL  tor  out 

out  CONP  data,AL  ;output  character  to  console 
ret 


•*  DK  EXECUTE  CMD  subroutine  * 

;called  frca:  in-line  froa  Boot  i202. 

Dk  Execute  Cad:  ;**  Executes  a  disk  read/write  Scaaand 

;*♦  para  in  -  DMA  addr  in  BX. 

; **  para  cut  -  none 

;s9nd  iopb  to  disk  controller  via  two  ports  (2  bytes) 
Send  iopb: 

“in  AL,DKP  result  type  ;clear  the  controller 
in  AL,DKP“result“by te  ;cl6ar  the  contrcllsr 
aov  AX, offset  DK“icpb  ;get  address  of  looh 
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»  »  » 


in  &L.OKP  status  ;  g«t  disJc  status 
and  AL,  OK~chIcint  uask  :  interrupt  j 
jz. Disk  lit  :i£  not«  keep  che< 
;see  if  interrupt  si  —  - ’ 


out  OKP  lopb  low^Al  loutput  lov  byte  of  iopb  addr 
■ov  AL.lR  :lcaa  high  byte  to  AL  for  output 

out  OKP  iopb  higb^AL  ;out  high  byte  of  iopb  aadr 
; check  for  intelrupt  froe  disk  controller 
Disk  int: 

~  ‘  l.um'  sxarus  :  aer  aiss  szazus 

set? 

,^4.  not«  keep  cbeckipg 

,  __  _ -ignifies  I/O  coepletiop 

in  AL.OKP  result^type  ;get  reason  for  interrupt 
cap  At# 001  ;«as  I/O  coaplete  7 

jz  Check  result  ;if  so,  go  check  the  result  byte 
jnps  Send  iopb  :if  not,  go  try  again 
;checK  result  byte  for  errors 
Check  result: 

In  AL.OKP  result  byte  ;get  result  byte 
and  Al,08OH  ;is  I/O  ccaplete? 
jnz  Fatal  err  ;If  not,  fatal  error 
and  AL,0fe{l  :check  for  error  in  any  bit 
jz  OK  execute  ret  ;no  errors,  go  return 
Fatal_err:  ” 

;clear  CL  for  counter 


■07  CL,0 
Ftest: 

rcr  AI,1 
inc  CL 
test  AL,01 
jz  Ftest 
■07  AI,CL 
■07  AB,  0 
add  AX, AX 
■07  BX,AX 


;check  each  bit  of  result 
:ccunt  each  bit 
:test  each  bit 
:zero,  go  check  next 
:not  zero,  error,  inc  count 
;clear  high 

:double  for  idx  to  word  table 
law*  ><4^# 04^  .lead  8X  as  index 

■07  BX,errtbirBX j  ;get  addr  cf  error  asg 
; print  appropriate  error  eessage 

call  Print  Hsg  ; write  asg  to  console 
call  Conin  ;wait  for  key  strike 

jep  Boot  1202  ;tben  start  all  07er 
Ck  execute  ret: 

"  rat  “ 


BBBSO.SEAO  subroutine  * 

^  «ike«e«e**«**ee*ee**»««**«»*e««eee***e»ee**»*ee**e*e»«*e»e 

; called  froa:  in-line  froa  Boot  HbbSO. 

HbbSO  Read:  ;**  reads  a  sector  froa  bubble 

;*•  para  in  -  EX  is  the  DBA  offset,  AX  is 
;  the  starting  page  i  for  the  xfer,  CL 

;  has  the  i  of  sectors  to  xfer,  ana  CH 

;  has  the  I  of  pages  to  xfer. 
para  cut  -  none 
:set  aultipage  aode 

ao7  ES:aBP  cand  reg,llB  apage  cad  :aultipg  aode  cad 
;load  first  page  ndaber  f3r  transfer 

ao7  BS:  ilBP  pagesel  l9,AL  :page  select  Ig  byte 
■07  BS: BBP~pageseI  hi, AH  ;|age  select  hi  byte 
;set  nuaber  ot  pages  fc  transrer  »  pages/secter 
■07  BS:nBP  pageent  lo,CH  :#cages  to  xfer 
■07  ESi  l!BP“gagecnt~hi,0  ;hi  byte  of  #  is  0 
;set  up  daa  address  td  recei7e  data 

■07  CH,0  : clear  high  byte  of  CX 

Bead  a  sector: 

~'push  CX  :sa7e  «  sectors  to  xfer 

■07  CX,BB  buflen  ; count  for  loop-buff  size 

: select  bubble  detice  and  issue  read  coaaand 
■07  ES:HBP  select  bub, 0  :trks  0,1,2  on  de7  *0 
■07  ES:  SBP  ennd  reg,llB  read  cad  ;read  froa  FIFO 
;wait  for  interrupt  froa  ccntrcller 
Read  int: 
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■ov  AL«ES:{1BE  Int  flag  ;get  interrupt  status 
and  AL,H9  chkint  lask  ; interrupt  set  ? 
jz.Seaa  ifft  ,  ^  ,  ;if  zero,  keep  checking 

:see  if  reld  enough  frcs  hunole  sector  to  fill  sector 
cap  CX, (HB  buflen  *  sector  size)  ;xf erred  enough? 
jnz  Read.one  ;if  net,  re^d  another  Byte 

push  BI  :save  location  in  BAB 

:read  froa  SBB  FIFO  buffer  into  daa  area 
Bead  one: 

aov  AI,BS:BBF  rdata  reg  ;read  a  byte  into  accus 
aov  rBX],AL  ;load  accua  into  daa  area 

inc  BX  ;increBent  index 

loop  Bead_int  ;oec  CX,  loop  if  not  zero 

Epop  BX  : restore  last  pos  in  BAB 

op  CX  : restore  *  sects  tc  xfer 

oop  B6ad_a_sector  :read  next  sector 

call  BbbSU  Bait  :vgit  for  controller 

aov  ES:BBP  cand  reg,BB  inhint  cad  :clear  cent  int 
ret 


BBB80  BAIT  Subroutine  * 

; called  froa:  Boot.BbbSO,  BbbBO  Bead. 

MbbSO  Bait:  ;**  checks  status  3f  BBB  cont  f3r  busy 

keeps  checking  (vait)  until  not  busy 
;*♦  para  in  -  none 
;♦*  para  out  -  none 

See  zero: 

'  Boy  AL,BS:BBP_status_reg  :get  status  register 


Cont 


Boy  AL,BS:BBP  status.reg  :get  status  register 
and  AL,BB.chlcBusy_cad  ;is  it  all  zeros  ? 

3z  See^zero  ;if  so,  keep  checking 

usy: 


BOV  AI,BS:RBP  status  reg  :get  status  regist 
and  AL,BB  chkBusy  cad  ;see  if  busy,  and  ti 
jnz  Cont.Busy  ;if  busy,  c&eck  aga. 


ster 


Bask 


!*e«ee*«****e*e*e***eee«**«*e*e**e*e*»e«e«««««ee«**««e*e«e« 

;*  PRINT  RS6  subroutine  * 

; called  frea:  Ok  Execute  cad. 

Print.Bsg:  ;**  Prints  a  aesSage  to  €he  console. 

;**  para  in  -  address  of  aessage  in  BX. 

:*•  para  cut  -  none 

BOV  CL, [BX]  :get  next  char  froa  aessage 
test  CL, CL  ;is  it  zero  -  end  of  aessage  ? 

jz  PBsq_ret  :i£  zero  return 

push  BX  ssaye  address  of  aessage 

call  conout  ; print  it 

pop  BX  ;restore  address  of  aessage 

inc  BX  ,  ;next  character  in  aessage 

japs  Print  Bsg  ;next  character  and  loop 
Pasg  ret: 

“  ret 


sho  oF  SUEBOOTINES  ***< 


;Iiaqe  of  data  to  be  aoved  to  BAB 
databegin  agu  offset  $ 

;A  teaplata  iSBC  202  lopb  (chgonel  coaaand  -  7  bytes) 

db  080H  ;iopb  cbaonel  word 


;EEd  of  iopb 

cerrtbl  dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 


ierO 

Carl 

Cer2 

Cat3 

Cet4 

Cats 

Cer6 

Cet7 


I 


db 

db 

db 

db 

db 

db 


db  0  ;io  coaaand 

db  0  ;nQaber  of  sectors  to  zfer 

db  0  ; track  to  read 

db  0  ;sector  to  read 

dw  OOOOH  :daa  addr  for  iSBC  202 


offset  erO 
offset  etl 
offset  er2 
offset  et3 
offset  era 
offset  erS 
offset  er6 
offset  er7 

ctflfr'Null  Error  ?7*»0 
critfl'CBC  Error*, 0 
cr,lf,*Seek  Error*#0 
cr,lf,* Address  Error*, 0 
cr,lf,*0ata  Owerrun-Onderrun* ,0 
cr,lf,*Write  Ptctect* ,0 
cr,lf,* Write  Error* ,0 
cr,lf,*Orlve  Met  Beady* ,0 


dataend  egu  offset  $ 

iata.length  egu  dataend>databegin 

• 

;  reserve  space  in  BAB  for  data  area 

;  (no  hex  records  generated  here) 

• 

*  OSEG  0 

org  0200H 


raB_start  egu 

• 

iTbis  is  the 
OK  iopb 

CK  io  coa  rb 

DK  secs  tran  rb 

DK“ttaclE  rb 

DK'sector.  rb 

DK  daa  addr  rw 

;End  of  lopb 
• 

errtbl  rw 

erC  rb 

er  1  rb 

er2  rb 

er3  rb 

era  rb 

erS  rb 

et6  rb 

er7  rb 

e 

ieap  offset  rw 

eaplsegaent  rw 

*  ?w 

stack.offset  agu 


ISBC  202  iopb  (Channel  coaaand  - 
rb  1  ;iopfc  channel  word 


coaaand  -  7  bytes) 


;io  coaaand 
;nttaker  of  sectors  to  xfer 
;track  to  read 
;sector  to  read 
;daa  addr  for  iSBC  202 


8 

length 

length 

length 

length 

length 

\:m 

length 

1 

1 


32  ; local  stack 

offset  $; stack  froa  here  down 


cerO 

;16 

cerl 

cer2 

cer3 

cera 

;  ia 

cerS 

cer6 

;  15 

cer7 

17 

19a 


1 


:128  bTte  sector  will  be  read  in  bare-GEHCHD  header 
gesbeader  ega  offset  I 

r5  1 

re  1 

abs  location  rv  1  :absolate  load  location 

re  1 

re  1 


;*e*»****ee****e*ee«e*****«e***«e*«e*«ee*ee*e*****e«*«*e**e 


;*  HBB-80  COHIBOLLBB  AND  POSTS 


SSEG 

• 

BEE  pagesel  lo 
!lBE~paqesel  hi 
NBE  cend  reg 
NBE  rdatl  reg 
MBE'edata'reg 
NBE  status  reg 
NBE  pagecnf  lo 
HBE'pagecnfhi 
NBE  Icops^ze  lo 
HBE_loopsize~hi 

HBE_pgsize_reg 


_  .  bub 

NBE  int  fllg 

end 


rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rb 

rw 

rb 

rw 

rb 


;ls  byte  for  page  select,  (0) 
;as  2  bits  for  page  select,  (1) 
;cosfand  register ,  (2) 

;read  data  regisrer,  (3) 

;vrite  data. register ,  (U) 
;stattts  register,  (5) 

;ls  byte  for  page  counter,  (6) 
;ns  2  bits  for  page  counter,  (7 
ils  byte  for  sinor  loop  s4ze,(8 
;ss  2  bits  for  sin  loop  sizee(9 
;internal  use (page  posT,  (A, 6) 
- €  size  register,  ' 


if 


equ  HBP  select  bub 
of  Controller  aid  Port 


;page  size  register 
;TI  use  only* 

;two  uses:  select  bubble.dev* 
■  "  : interrupt  fla‘ 

definitions  **•* 


m 


leeeeAeeeeeeeeeeeeeeeeeeeeeee****************************** 
;*  End  of  CP/(l-86  Custoeized  BOH  * 
•  e«e*«ieeeeee)ii«*eeeee  ******  eeeee««eee«*e«ee**e**e*eeeeee***e 
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